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The  complex-variable  boundary  element  method  (CVBEM) 
is  extended  to  the  solution  of  potential  problems  in 
multiply  connected  domains.  A  doubly  connected  domain  is 
taken  for  analysis,  and  a  finite  width  cut  is  introduced  in 
the  domain.  Linear  basis  functions  are  used  to  derive  the 
CVBEM  nodal  equations  through  a  limiting  procedure.  It  was 
found  that  the  stream  functions  along  the  cut  do  not  cancel 
out  but  result  in  an  additional  term  in  the  nodal 
equations.  For  the  complex  variable  methods,  the  Cauchy- 
Riemann  conditions  must  be  used  to  generate  additional 
equations  relating  the  stream  functions  and  heat  fluxes 
when  Neumann  and  Robin  conditions  are  specified  on  the 
boundaries.  The  CVBEM  equations  for  interior  points  are 
also   derived,   and   three   methods   of   solution   of   the 


IX 


resulting  nodal  equations  are  described.  The  analysis  is 
shown  to  be  reducible  to  the  available  simply  connected 
f^ormulation  by  introducing  a  new  node  numbering  system. 

The  CVBEM  equations  are  successfully  tested  by  solving 
example  problems  with  available  analytical  solutions. 
Dirichlet,  Neumann,  and  Robin  boundary  conditions  are 
tested  using  the  implicit  method  of  solution.  The  CVBEM  is 
shown  to  converge  as  the  boundary  discretization  scheme  is 
refined.  An  example  comparing  the  CVBEM  to  the  real 
variable  boundary  element  method  is  also  provided.  The 
three  solution  methods  are  compared,  and  the  efficacy  of 
these  methods  is  discussed.   *  - 

The  CVBEM  is  extended  to  triply  and  generalized  to 
multiply  connected  domains  by  using  the  development  for 
doubly  connected  domains.  The  mechanism  leading  to  the 
formation  of  double-valued  stream  functions  is  critically 
analyzed  and  applied  to  the  formulation  of  the  streeun 
functions  along  multiple  cuts.  General  nodal  equations  are 
also  derived  for  an  extension  of  the  CVBEM  formulation. 
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CHAPTER  I 
INTRODUCTION 


In  the  mathematical  analysis  oi^  potential  problems,  one 
usually  encounters  the  solution  of  ordinary  or  partial 
differential  equations  subject  to  appropriate  boundary 
conditions.  For  example,  in  an  unsteady-state  heat 
conduction  analysis,  the  temperature  is  governed  by  a 
parabolic  partial  differential  equation,  whereas  in  a 
teady-state  heat  conduction  analysis  in  multiple 
dimensions,  the  temperature  is  governed  by  an  elliptic 
partial  differential  equation.  These  equations  are  not 
difficult  to  solve;  however,  if  the  boundary  conditions  are 
nonlinear  or  if  the  system  domains  are  irregular  in  shape, 
the  problems  cannot  be  solved  exactly.  Numerical  methods 
must  then  be  used  to  solve  them. 

The  numerical  solution  of  the  heat-conduction  equations 
can  be  classified  into  two  broad  categories,  namely,  whole 
domain  approach  and  boundary  approach.  The  whole  domain 
approach  consists  of  the  ever  popular  finite  difference 
methods  (FDM)  '  and  finite  element  methods  (FEM) .  These 
methods  discretize  the  whole  domain  into  a  grid  of  points. 
Those  points  on  the  boundaries  are  thus  analyzed  together 
with  the  interior  points  to  solve  for  the  temperature. 
There   are   major   differences,   however,   in   the   ways   the 
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finite  difference  and  finite  element  equations  are  derived 
in  the  solution.  In  the  FDM ,  a  local  energy  balance  is 
invoked  at  the  nodal  points  in  order  to  derive  a  set  of 
algebraic  equations;  whereas  in  the  FEM ,  the  algebraic 
equations  are  derived  on  the  basis  of  satisfaction  of  the 
governing  partial  equation  in  a  global  sense.  It  is  more 
difficult  to  derive  the  finite  element  equations,  but  the 
FEM  are  more  convenient  to  use  in  the  solution  of  problems 
in  irregular  domains.  Such  an  advantage  is  diminishing 
recently,  however,  because  of  the  advance  of  grid 
generation  techniques. 

The    boundary    approach    of    numerical    solution    is 
primarily   represented   by   the   boundary   integral   equation 
methods   (BIEM) ,   which  are  commonly  known  as  the  boundary 
element   methods   (BEM) .   In   these   methods,   the   governing 
partial  differential  equations  are  used  in  conjunction  with 
the   boundary   conditions   to  derive   an   integral   equation, 
which   consists   of   contour   and   domain   integrals.   Great 
simplicity  arises   in   situations  where  there   are   no  heat 
sources  and  sinks  in  the  domain;  then  the  domain  integral 
vanishes,   and   only   contour   integrals   remain.   It   follows 
that   only   the   system   boundaries   need   be   discretized. 
Dealing  solely  with  the  boundary,  the  boundary  approach  is 
able  to  simplify  element  generation;   it  also  reduces  the 
dimension   of   the   discretization   by   one.   The   number   of 
equations  solved  simultaneously  in  the  boundary  approach  is 
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K;?;  less   than   the   whole   domain    approach.    However.    the 

•l^v  coefficient  matrices  generated  in  the  boundary  approach  are 

^ ' ! '  ■'  ■'■  ^  ■ 

g:  ,.  unsymmetric   and   the   matrix   elements   are   nearly   fully 

V  populated.  There  have  been  a  number  of  studies  devoted  to 

■^■*    '  , 
■  '*■"*  *  ■/ 

■^'•;~,'  the   comparison   of   the   boundary   approach   with   the  whole 

domain  approach.  They  are  reviewed  together  with  others  in 


-■i?;/       the  next  chapter. 


There  has  been  much  attention  given  recently  to  the 
studies  of  the  BEM .  Indeed,  the  BEM  have  now  been  developed 
to  a  level  that  is  competitive  with  the  FDM  and  FEM . 
&#  However,  most  of  the  studies  are  confined  in  a  real  domain 
%^..  analyzed  with  real  variables.  This  thesis  is  concerned  with 

■^  a  particular  form  of  the  BEM  called  the  complex  variable 
'i?,r  boundary  element  methods  (CVBEM)  ,  which  formulate  the 
|?C        boundary  integral  equation  in  a  complex  plane  based  on  the 


;;^t  Cauchy  integral  formula.  Using  complex  variables,  the 
■jvik  methods  will  be  used  to  solve  two-dimensional  heat- 
c'ifci  -      conduction  field  problems  in  simply  and  multiply  connected 


domains.   As   will   be   shown   later.   the   complex   methods 

possess  advantages  not  found  in  the  real  variable  boundary 

-g^r.      element  methods   (RVBEM)  .   For  example,   the  CVBEM  generate 

'-^r,  approximating  functions  that  are  analytic  and  thus  satisfy 

>,%;  -     the  governing  equation  throughout  the  system  domain.  More 

.■•'''i'' ' 

IS*:       important,   contour  integrations  along  the  system  boundary 

'-.>.-■'■■?.'■•' 

^i*...      can   be   carried   out   exactly,   while   in   the   RVBEM   such 

W: .,  :  integrations     can     only     be     performed     numerically. 
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Errors  in  the  CVBEM  can  be  assessed,  which  further  adds  to 
the  confidence  in  these  methods. 

It  is  the  thrust  of  this  work  to  extend  the  CVBEM  in 
simply  connected  domains  to  doubly  connected  domains.  The 
methods  will  be  used  to  solve  several  verification  examples 
of  heat-conduction  problems  in  doubly  connected  domains. 
The  CVBEM  will  then  be  extended  to  the  solution  of 
potential  problems  in  multiply  connected  domains. 


CHAPTER  II 
LITERATURE  REVIEW 


Boundary  element  methods  (BEM)  can  be  categorized  as 
real  variable  boundary  element  methods  (RVBEM)  and  complex 
variable  boundary  element  methods  (CVBEM) .  There  are  three 
types  of  RVBEM  formulations.^  Direct  RVBEM  are  formulated 
using  Green's  identity  with  the  dependent  variables 
expressed  in  real  numbers  that  appear  in  the  integral 
equations.  Semi-direct  RVBEM  formulate  the  integral 
equations  in  terms  of  unknown  functions,  such  as  stream 
functions  in  potential  flows;  these  functions  are  then 
related  to  the  dependent  variables.  Indirect  RVBEM  express 
the  dependent  variables  in  terms  of  integrals  of  a  density 
distribution  over  the  boundary  of  the  unit  singular 
solution  to  the  governing  partial  differential  equation.  By 
contrast,  the  CVBEM  are  formulated  in  the  complex  plane  and 
are  based  on  the  Cauchy  integral  formula.  The  unknowns 
appearing  in  the  CVBEM  integral  equations  are  the  potential 
and  stream  function  components  of  a  complex  variable.  As 
such,  the  CVBEM  can  be  considered  a  semi -direct  boundary 
integral  method  formulated  in  the  complex  plane. 

Although  the  origin  of  the  RVBEM  can  be  traced  back  to 
Green  in  1828,  "^  Brebbia  is  widely  considered  to  be 
responsible  for  promoting  the  RVBEM  as  a  viable  tool  for 
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numerical    modeling.  ~      A    great    many    authors    have 

^  contributed  to  the  maturity  of  the  technique,  and  the  RVBEM 

have  now  been  firmly  rooted  as  a  useful  numerical  method  in 

the  solution  of  field  problems   in  solid  mechanics,  fluid 

u   •        ^         u        ■  ^u  6,12-17  _     18 

mechanics,   and  geomechan ics ,   among  others.  Cruse 

has  reviewed  the  current  advances  of  the  RVBEM   in  solid 

mechanics,  comparing  the  state  of  the  art  in  the  RVBEM  with 

the  FEM. 

There  has  been  relatively  little  attention  given  to  the 

'.         use  of  the  RVBEM  in  the  solution  of  lieat  transfer  problems. 

19 
Rizzo  and  Shippy    used  the  RVBEM  to  solve  transient  heat 

conduction   problems,   while   Chang   et   al .      developed   a 

;         constant  element  analysis  to  solve  heat  conduction  problems 

in  anisotropic  media.  The  RVBEM  have  been  applied  to  the 

solution   of   conduction   problems   with   linear   boundary 

conditions     (e.g.,     Dirichlet,     Neumann,     and     Robin 

j.^.    ,6,10,21  ,22      ,      ,  .       ^    ^  _,  .  . 

conditions)  and   nonlinear   boundary   conditions 

23 
(e.g.,   radiative  conditions).      They  have  also  been  used 

to  solve  steady  and  unsteady  problems  in  two-  and  three- 

't..     '-     • 

24-29 

dimensions.        More  recently,  the  RVBEM  have  been  used  in 

conjunction   with   optimization   methods   in   the   design   of 

30-32 
thermal  systems. 

It   is  only  recently  that  complex  variables  have  been 

■  used  in  the  development  of  boundary  element  methods.  Hunt 

33 
'-:  '  :  and  Isaacs    were  the  first  to  formulate  complex  variable 

f>  ,        BIEM   based   on   the   Cauchy   integral   theorem.   They   used   a 
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7 
linear  trial  function  between  boundary  nodes  to  investigate 
multizone,  anisotropic,  two-dimensional  flows  in  porous 
media.  Anisotropic  zones  were  transformed  to  isotropic 
zones  through  rotation  and  stretching  transformations  about 
principal  axes  in  order  to  obtain  a  domain  consisting  of 
simply  connected  zones  governed  by  the  Laplace  equation. 
These  zones  were  then  coupled  by  imposing  compatibility 
conditions  at  the  interfaces.  By  means  of  examples,  they 
were  able  to  show  results  in  close  agreement  with  available 
analytical  and  FEM  solutions.  Hromadka  and  Guymon 
extended  this  analysis  to  moving  boundary  problems;  their 
analysis  was  later  generalized  to  a  formalism  now  referred 

OK 

to  as  the  complex  variable  boundary  element  method. 

If  Brebbia  could  be  credited  as  the  principal  promoter 
of  the  RVBEM ,  then  Hromadka  could  be  considered  as  the 
major  contributor  to  the  development  of  the  CVBEM .  It  is 
his  idea  of  expanding  the  CVBEM  approximation  in  a  finite 
series  of  analytic  functions  that  linked  the  linear 
approximation  of  the  CVBEM  to  the  analytic  function  method 
(AFM)    of   Van   Der   Veer . -^^""^"^   Having   established   the 

OQ 

theoretical  basis  for  the  CVBEM,  Hromadka  developed  an 
approximation  technique  for  a  heuristic  error  minimization. 
Here,  through  considerable  computer  effort,  an  analytic 
continuation  concept  was  invoked  for  the  CVBEM 
approximation.  A  discrete  number  of  locations  where  the 
imposed  boundary  conditions  were  met  by  the  CVBEM  solution 


8 
(within    a   given   tolerance)    were    ident  ii^ied   as   the 
approximate   boundary.   The   error   in   the   CVBEM   was   then 
reduced   by   concentrating   additional   nodes   along   regions 
where   the   approximate   boundary   deviated   from   the   known 

system   boundary.   Hromadka   was   able   to   establish   the 

39 
relative  error  bounds  for  the  CVBEM.    He  also  showed  that, 

in  the  limit  of  an  i nf initesmal ly  small  discretization  of 

the   boundary,   the   CVBEM   solution   approached   the   exact 

solution   as   a   limit.   Hromadka   et   al  .   ~     successfully 

tested  the  CVBEM   in  a  variety  of   steady  two-dimensional 

fluid  flow  and  heat  transfer  problems  for  which  analytical 

solutions   were   available.   The   CVBEM   were   found   to   be 

accurate,   and  the  results  converged  as  the  number  of  the 

collocation   points   on   the   boundary   was   increased.   In 

addition,  the  integrated  measure  of  the  relative  error  was 

shown   to   be   an   effective   adaptive   scheme   useful    in 

judiciously  locating  additional  nodal  points  to  reduce  the 

overall  error. 

The  CVBEM  have  also   been   applied   in  the  solution  of 

steady  groundwater  flow  and  soil  freezing  problems.        In 

such   applications   the   CVBEM   can   accomodate   large-scale 

inhomogeneous  subdomains.   Lai     applied  the  CVBEM  to  the 

solution     of     density-stratified     inviscid     fluid-flow 

problems.   He  modeled  each   layer   in  the  flow  as  a  CVBEM 

approximated  subdomain  and  used  a  linearized  form  of  the 

Bernoulli    equation    to    impose    interfacial    boundary 
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conditions.  It  was  found  that;  an  iterative  divided  matrix 
approach  to  the  multilayer  "flow  gave  satisfactory  results. 
However,  the  solution  of  the  global  set  of  equations 
generated  from  the  assembly  of  the  subdomain  equations  and 
boundary  conditions  was  unsatisfactory.  This  can  be 
ascribed  to  the  fact  that,  in  the  limit  of  a  large  number 
of  subdomains,  the  CVBEM  approach  the  FEM  formulation  with 
each  CVBEM  subdomain  becoming  akin  to  a  FEM  superelement . 
The  CVBEM  literature  is  growing  recently.  The  interested 
reader  is  referred  to  Reference  48  for  a  detailed  review  of 
the  literature  and  to  References  49  and  50  for  a  full 
exposition  of  the  methods.  ^  - 

It  is  clear  that  the  end  result  of  both  the  RVBEM  and 
CVBEM  is  a  set  of  algebraic  equations.  As  has  been  pointed 
out  in  Chapter  I,  the  set  of  equations  generated  by  the 
boundary  approach  is  inherently  smaller  than  those 
generated  by  the  whole  domain  approach.  However,  the 
structures  of  these  equations  are  quite  different.  The 
coefficient  matrix  of  the  algebraic  equations  generated  in 
the  domain  approach,  although  large,  is  banded.  This  allows 
for  efficient  storage  and  solution  algorithms.  By  contrast, 
the  coefficient  matrix  of  the  algebraic  equations  generated 
in   the   boundary   approach   is   smaller,   yet   it   is   fully 

populated  and  is  unsymmetric.  This  imposes  restrictions  in 

51 
storage   and   solution   algorithms.   Bettess     compared   the 

number  of  operations  required  to  solve  potential  problems 


■^■■■. 
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in  a  square  and  a  cubic  domain  and  reported  that  the 
operation  counts  between  the  FEM  and  BEM  actually  favor  the 
FEM  unless  large  problems  are  tackled.  The  major 
contributions  to  the  operation  counts  considered  in  his 
study   were   originated   from   the   number   of   storage   and 

solution   phase   arithmetics   performed.   However,   Moukerjee 

52  53 
and  Morajaria   '     pointed  out  that,  for  the  same  level  of 

discretization,   the  BEM  provide  higher  accuracy  than  the 

FEM.    This    led   them   to   believe   that   the   BEM   are 

computationally  more  efficient  than  the  FEM,  a  finding  also 

supported    by   Banerjee    and    Butterf ield    (Reference    6, 

IT  18 

sections  1.5  and  8.11),  Ligett  and  Liu,     and  Cruze .     In 

addition,   the   level   of  pre-solution  phase  preparation   in 

discretization  and  element  generation  also  strongly  favors 

the  boundary  element  methods. 

To   date,   the   CVBEM   have   been   primarily   used   in   the 

solution  of  potential  problems  in  simply  connected  domains 

imposed   with   Dirichlet   and   Neumann   boundary   conditions. 

There   is  a  lack  of  studies  dealing  with  the  solution  of 

potential   problems   in   multiply   connected   domains   whose 

boundaries   are   imposed   with   Robin   conditions.   The   CVBEM 

developed   in  this  work  thus  fills  the  practical   need  of 

solution  of  such  problems. 


CHAPTER  III 
MATHEMATICAL  BASIS  OF  THE  CVBEM  IN  CONDUCTION  HEAT  TRANSFER 


The   theoretical   basis   of   the   CVBEM   is   the   Cauchy 

■  >       '*  •. 
integral  formula,  >: 

I  : 

'"<^^o^  =2^1   1^  ^^    {  ^o  I  Zo€n  ;  zo^r  }       (3-1) 

r 

which  relates  the  value  of  a  complex  analytic  function  w  at 
a   point   Zq   inside   a   k-connected   Jordan   domain   of   the 
complex  plane  Q  to  the  integral  of  that  function  along  the 
boundary  T     of  that   domain;   see   Figure   3-1.   The   contour 
integral  is  performed  so  that  the  domain  lies  to  the  left 
of  the  contour  of  integration.  Steady  state  heat  conduction 
problems  with   constant   thermal   conductivity  and   no   heat 
generation  are  governed  by  the  Laplace  equation.   One  can 
thus  construct  a  complex  potential,  u (z)  =(f> (z)  +  i xl> (z)  ,     when 
solving  these  problems  in  a  two-dimensional  plane.  The  real 
part   of   the   potential   <f>(z)  ,        representing   the   state 
variable,   is   identified   as  the   temperature;   whereas  the 
imaginary   part   of   the   potential  rp(z)  ,       representing   the 
stream  function,  is  related  to  the  total  rate  of  heat  flow. 
The   two   are,   in   turn,   related   by   the   Cauchy-Riemann 
cond  it  ions 
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Zj       z 


Figure  3-1.  The  CVBEM  in  a  simply  connected  domain 
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d<t)    _      dU'  d<f>  dip  , 

d^    -      d^  ""^  ^    =    -    ^  (3-2) 


which    yield    the    relation 


dn    ~    ds  (3-3) 


In  (3-3),  n  represents  the  outward  drawn  normal  to  T,    and  s 

is  a  tangential   coordinate  along  T  again   in  the  positive 

direction  defined  earlier.   Using  the  Fourier  law  of  heat 

conduction  on  the  left-hand  side  of  (3-3)  enables  ip    to  be 

expressed  as  an  integral  of  the  heat  flux.  This  provides  a 

link  between  the  stream  function  and  the  heat  flow.   The 

Cauchy-Reimann   relations   also   imply  that   the   temperature 

and  stream  function  form  an  orthogonal  net  in  Q  U  F. 

In  the  CVBEM  approach  to  the  solution  of  a  boundary 

integral  equation,  two  basic  approximations  are  made  in  the 

Cauchy  integral  formula  as  follows: 

(i)  The  boundary  T    is  discretized  into  N  f in ite- length 

segments  denoted  by   T . .  The  entire  boundary  is 

the  union  of  these  segments,  i.e.,  r~|J  f.;  see 

j=l  -^ 
Figure  3-1.  In  analogy  to  finite  element 

terminology,  the  endpoints  of  these  segments  are 

called  nodal  points.  Since  the  domain  Q    is  simply 

connected  in  this  chapter,  when  j=N  then  j+l=l,  as 

shown  in  the  figure. 


14 
(ii)The  potential  w  along  the  discretized  boundary  is 
expanded  in  an  analytic  series.  Polynomials  can  be 
used  for  this  expansion.  The  order  of  the  CVBEM 
approximation  thus  hinges  on  the  degree  of  the 
polynomial  used. 
In   this   chapter,   linear   elements   will   be   used   to 
develop   the   CVBEM.   In   this   effort,   a   piecewise   linear 
interpolating   polynomial   will   be   used   to   represent   the 
boundary  and   the   complex   potential.   Referring  to   Figure 
3-2,   the   linear  basis  functions  N.  -,  (s)   and  N.  o(s)   are 
defined  on  each  element  T-  as 


(3-4) 


Nj,l(s)=    • 

(o: 

s» 

^J 
^J 

Nj,2(-)=    ■ 

(:: 

(3-5) 


ary 


where   0<s<l  .   Using   these   basis   functions,   the   bound 
coordinate  ^  is  expressed  parametr i cal ly  on  T.  as 


^(s)=  Nj^^(s)  Zj  +   Nj^2(-)  -j  +  1      {  0  <  s  <  1  }     (3-6) 


Notice  that  the  parameter  s  is  related  to  the  nodal  points 
on  each  element  T-  as 


* 


j+1 


Z         z     z 

J+2  ^N  \ 


Figure  3-2.  The  linear  basis  functions  N.  . (s)  and  N-  o(s). 
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The  differential  coordinate  d^  along  the  element  T-    follows 
from  (3-6)  as 

d^(s)=  (2j  +  i-Zj)  ds  (3-8) 

In   a   similar   fashion,   the   complex   potential   w   is 
expressed  parametr ical ly  as 

^ia^)l    =      Nj^^(s)  u>.    +    Nj^2(^)   ^j  +  1  (3-9) 

Here,  using  Hromadka's  notation,  w  .  =  ^  (z  •)  +  ii/)  (z  •)  =0  .+ i  ^  .  is 

J     J        J    J    J 

the  specified  complex  potential  at  the  nodal  point  z-  G     F. 

J      J" 

Introducing  (3-6),  (3-8),  and  (3-9)  into  the  Cauchy 
integral  formula,  equation  (3-1),  leads  to  a  first-order 
approximation  to  w(zo)  denoted  by  ui  (zq)       as 

2.i^(zo)=f  |r       ^,l(-)^.i^Nl,2C-)^.i.l      ,        ^^  ) 

(3-10) 

Then,  by  expanding  the  terms  in  the  integrand  and 
rearranging,  w(zo)  can  be  expressed  as  the  sum  of  N  first- 
order  complex  element  contributions  as 


^(-o)  =  271   t    Ij(-o 


(3-11) 
j  =  l 
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where 


Ij(-o)  = 


1 


(1-s)  w.  + 


S    Ul 


J  "  ^    "J+1 


0  Wj ^^       (3-12) 


(zo-z-) 

7.=  J— 


J    (^j+l-^j) 

The  integral  in  (3-12)  can  be  performed  to  yield 


and  upon  introducing  7.  from  (3-13), 


(3-13) 


I  . 


,   .   ._      _  .   '^j  +  l(2o-Zj)-w.(zo-z-  ,1)   /z.^-Zo\ 


Now  if  u)  .  is  fully  specified  at  each  node  z-,  then 
equations  (3-11)  to  (3-14)  are  sufficient  to  estimate 
w(zo) .  However,  in  regular  heat  conduction  problems, 
boundary  conditions  specify  any  ^y  f . ,  or  none  of  them 
explicitly,  A  boundary  integral  problem  is  thus  formed  by 
using  equation  (3-11)  to  generate  nodal  equations  at  each 
point  z.  to  solve  for  the  unknown  (^  .    and/or  ip  . . 

The  Cauchy  integral  formula  is  a  relation  for 
evaluating  the  analytic  function  w  at  any  interior  point; 
it  is  singular  when  Zo=  Zj  e  F.  However,  the  principal 
value  of  the  integral  exists  and  can  be  evaluated 
analytically.   Two  methods  can  be  used.   Hunt  and   Isaacs*^^ 
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and  Hromadka  and  Guymon  replace  the  boundary  around  node 
j  with  a  small  circle  of  radius  e  and  evaluate  w(zo)  in  the 
limit  as  f-»  0.  Another  technique,  also  used  by  Hromadka  and 
Guymon,  '  is  to  let  Zq  approach  the  boundary  node  z,  from 
the  interior;  that  is,  one  takes  the  limit 
'^^^k^^^  iP  or-'^(^o)  •  The  latter  approach  will  now  be  used  to 
develop  the  CVBEM  nodal  equations. 

Notice  that  the  terms  which  lead  to  the  singularities 
in  equation  (3-11),  as  the  nodal  point  z^  is  approached 
from  the  interior,  are  contributed  by  the  two  adjacent 
elements  T^  and  Tj^  ^^  .  As  Zq  approaches  z,  ,  7.  in  the 
arguments  of  the  logarithmic  term  in  (3-14)  vanishes  or 
equals  unity,  thereby  leading  to  the  singularities  in  the 
integrals  Ij^_^  and  I^.  Fortunately,  these  singular  terms 
can  be  manipulated  to  cancel  each  other  out.  With  this  in 
mind,  the  contour  integral  in  equation  (3-11)  is  first 
recast  as 


<^^°)=27i    A     Ij(^o)+Ik_i(zo)+Ik(zo))     (3-15) 


j  =  l 
j#k,k-l 


Then  the  limit  is  applied  as 


2.i  ^(z^)=  ^im   2xi  ^(zo)=f:      Ij(zj^) 


j=l 
J7tk,k-1 


+  z\,t"'zr  Ik-l(^o)+   lirn^-Ik(^o)      (3-16) 


'k 


5"'  •■■ 
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Finally,   (3-14)   is  introduced  into  (3-16),  and  after  much 
manipulation  this  yields 


2n-i  u(z,)=    ^•,.  In  2^ — , -z, 


'k-l-'-k 


.^     ,-J.l(-k--j)-^j(-k-J.l)   /-J.l-k\ 


+ 

j?^k,k-l 


Equation  (3-17)  is  useful  in  deriving  w  in  doubly  connected 
domains  as  will  be  shown  in  the  next  chapter.  For  the  time 
being,   it   is   well   to   add   that   Hromadka   studied   the 

existence,     continuity,     and     convergence     of     this 

50 
approximation  and  presented  examples. 

Performing  complex  algebra  in   (3-17)   yields  a  pair  of 

equations   at   each   nodal   point  z,        on   F.   These   nodal 

A  A 

equations,  one  for  (f),  and  one  for  ^i.  ,  can  be  used  along 
with   the   boundary   conditions   to   generate   a   set   of 

A  A 

simultaneous  equations  to  solve  for  the  unknowns  (f>,  and  ijj,  . 
It  is  the  inherent  coupling  of  the  nodal  variables  in 
(3-17)  that  leads  to  a  nearly  fully  populated  and 
unsymmetric  coefficient  matrix,  as  discussed  in  the 
literature  review.  Once  4>  and  V  have  been  fully  determined 
at  the  boundary  nodes,  the  temperature  can  be  evaluated  by 
equation  (3-11)  for  any  point  ZoCfiur  that  is  not  a  boundary 
node.  The  temperature  is  then  fully  determined  anywhere  in 
nur  by  the  linear  CVBEM . 
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In  closing  this  chapter,  some  comments  are  in  order  to 
examine  the  terms  in  (3-17)  .  It  is  clear  that  (3-17)  is  a 
complex  expansion  of  the  potential  w  in  terms  of  natural 
logarithms  and  complex  polynomials.  This  expansion  is 
analytic  and  satisfies  the  Laplace  equation  throughout  fiUT. 
The  logarithms  under  the  summation  can  be  expressed  using 
complex  variables  as 


'^^-h^]  =  in  I  li;i±i:l^^ 


In   4±i^   =  In  I    ,,-^+^'  ^^        I  +inz.^,z.;z^)  (3-18) 


where  d  refers  to  distance  and  0     refers  to  angle.  They  are 
in  turn  related  to  the  nodal-point  locations  as 


d(-j+i'-k)  =[(-j+i-^k)^+(yj+i-yk)^i'''^  (3-19) 


d(zj,zi^)  =[(Xj-Xj^)2+(yj-y^)2]l/2  ^320^ 


<?(Zj^^,Zj;zj^)=arg(Zj^-^-z^)  -  arg(Zj-Z|^)        (3-21) 

Here  the  principal  value  of  9  (  —  ir<0<ir)  is  to  be  taken;  see 
Figure  3-1.  However,  confusion  may  arise  in  evaluating  the 
logarithm  outside  the  summation  in  (3-17).  For  this  outside 
logarithm , 


-  i^tf^)  =  -  C-^^TT^)   ^'  »(^.« -.-!-.)<--) 
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where 


<l(-k+l'-k)  =[(-k+l-k)^+(yk+l-yk)^]'''^         (3-23) 


d(-k-i'-k)  =((-k-i— k)^+(yk-i-yk)^]'''''  (3-24) 


and,  the  angle  6     is  related  to  the  interior  angle  0 ^^^    as 

^(-k+l'-k-l'-k)  =  2.-^.^^  (3-25) 

as  illustrated  in  Figure  3-3.  This  notation  will  be  used 
throughout  this  work.  The  development  of  the  CVBEM  in 
simply  connected  domains  is  now  complete.  Extension  of  the 
CVBEM  to  doubly  connected  domains  follows  in  the  next 
chapter . 
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Z,        .Z  .-2      ) 

k+1  k-1   k 


ly 


^x 


Figure  3-3.  Evaluation  of  the  angle  ^(zj^+i  »Zi,_  i  ;  Zj.) 


CHAPTER  IV 
CVBEM  IN  DOUBLY  CONNECTED  DOMAINS 


The  Cauchy  integral  formula  can  be  applied  to  the 
solution  of  potential  problems  in  a  doubly  connected  domain 
by  introducing  a  cut  connecting  the  inner  and  outer 
boundaries  of  the  domain.  However,  the  stream  function 
component  of  the  complex  potential  ui  is  double  valued  along 
the  line  of  the  cut,  and  this  must  be  accounted  for  in  the 
analysis.^'*"'^^  Further,  the  CVBEM  analysis  in  a  doubly 
connected  domain  must  be  (i)  reducible  to  that  in  a  simply 
connected  domain  if  the  inner  boundary  vanishes,  and  (ii) 
extendable  to  that  in  a  multiply  connected  domain  if  more 
holes  are  added  to  the  domain.  With  these  serving  as 
guidelines,  the  CVBEM  in  doubly  connected  domains  are 
developed  in  this  chapter. 

Derivation  of  the  Nodal  Equations  for  the  CVBEM 
in  Doubly  Connected  Domains 

The  discretization  scheme  illustrated  in  Figure  4-1  is 
useful  in  developing  the  CVBEM  in  doubly  connected  domains. 
A  cut  is  made  in  the  domain  Q,  and  a  discrete  closed 
contour  is  defined  such  that  r  =  ro  U  Tw  U  T  •  U  ^^, .  Here, 
the  outer  boundary  Tq  is  discretized  into  M  elements,  and 
following  the  practice  of  Chapter  III.  these  elements  are 

23 


,^'-:.^ 
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Figure  4-1.  Boundary  discretization  used  to  derive  the 
CVBEM  in  a  doubly  connected  domain. 
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numbered  in  a  counterclockwise  direction.  The  inner 
boundary  T^  is  discretized  into  (N-M)  elements,  which  are 
numbered  in  a  clockwise  direction.  The  cut  is  shared  by  two 
elements  Tj^  and  T^;  they  are  equal  in  length  but  opposite 
in  direction.  For  the  convenience  of  later  analysis,  these 
two  elements  are  separated  by  a  small  gap  6z  =  S>:+iSy ,  which 
will  eventually  be  taken  to  be  zero  in  a  limiting  process 
in  order  to  close  the  gap.  This  approach  permits  the 
consideration  of  double  values  for  the  complex  potentials 
along  the  line  of  the  cut. 

Using  (3-2)  and  the  Fourier  law  of  conduction  and 
recognizing  that  the  stream  functions  at  points  1  and  M  and 
at  points  M+1  and  N  are  double  valued,  the  complex 
potentials  at  these  points  are  related  to  each  other  by 

a)(z^)  =  u(z^)     +     i*  (4-1) 

w(z^)  =  w(z^_|_^)  -  i<f  (4_2) 

Here,  *  is  related  to  the  total  heat  flow  rate  per  unit 
thermal  conductivity  (Q/k)  across  either  of  the  system 
boundaries  Tq  or  f.   by 


^    =     -    ^'^    =       ^N,M+1 


(4-3) 


In   (4-3),   the  subscripts  for  Q  sequentially  refer  to  th 
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end-   and   starting-point   nodal    locations;    hence,    Q.. 

^M  ,  1 

denotes   the   total   rate   of   heat   flow   across   the   outer 

boundary  that  is  lying  from  point  1  to  point  M.  Taking  the 

normal  n  to  be  positive  pointing  outward  and  considering  a 

basic  problem  in  which  no  heat  is  generated  within  fi   Q.. 

'  ^M ,  1 

^"•^  '^N.M+l  ""Jst  be  opposite  in  sign,  and  their  magnitudes 
are  related  by  the  energy  conservation  principle  as  |  Q^  _,  | 
~  l'^N,M+ll-  ^"  general  the  value  of  this  Q  is  not  known 
unless  the  flux  is  fully  specified  over  either  of  the 
boundaries.  Then,  *  is  an  unknown  to  be  determined  along 
with  the  unknown  <f>^  s  and  V's.  In  the  trivial  case  of  a 
uniform  temperature  domain  enclosed  by  insulated 
boundaries,  then  the  Q's  vanish  a  priori  and  by  definition, 
so  does  *.  The  doubly  connected  domain  becomes  simply 
connected  if  the  inner  boundary  vanishes,  and  this  becomes 
a  special  case  of  the  analysis  that  follows. 

The  linear  boundary  element  method  is  now  developed  on 
the  basis  of  the  doubly  connected  domain  shown  in  Figure  4- 
1.  Following  the  limiting  process  described  in  Chapter  III, 
the  boundary  node  at  z^  is  approached  from  the  interior. 
For  a  doubly  connected  domain,  it  is  also  necessary  to  take 
the  gap  8z  at  the  cut  to  zero  in  the  limit.  Thus,  following 
(3-10),  the  linear  CVBEM  approximation  for  the  complex 
potential  at  the  boundary  node  z^    is  given  by  the  limit 


2x  i  w  (zi  )  = 


Equation  (4-4)  can  be  recast  as 


.  A 


2.i.(z^)  =  ^li^^^^^  li^_^^_  2.i^(zo)  1         (4-5) 


Here  the  limit  inside  the  parentheses  is  recognized  to  be 
that  2;riw(zj^)  previously  derived  in  (3-17).  In  fact,  this 
time  terms  for  j=k  and  j=k-l  in  the  summation  in  (3-17)  can 
be  recovered,  and  the  inner  limit  expressed  as  a  summation 
o^  Hj(zj^)  as  : 

Notice  that  the  j=k  and  j=k-l  terms  have  now  been  included 
in  the  summation  because 


'k-l+  »k  =  ^k^"lzi;!i-  zM  (4-7) 


H._-,+  H,  =a;,  In 


The  outer  limit  in  (4-5)  is  applied  next,  and  notice 
that,  for  the  outer  limit  process,  Zj^,  =  z^  and  z^+i^Zj^. 
However,  the  complex  potentials  at  these  points  do  not 
cancel  out  but  are  related  as  in  (4-1)  and  (4-2)  .  From  this 
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line  of  reasoning,   a  general   expression  for  w(zj^)   can  be 
derived,  and  this  will  be  based  on  the  generalization  of 
the  derivation  for  w(z-j^)  which  follows. 

For  the  nodal  point  1,   one  may  use   (4-5)   and  (4-6)  to 
write 


2.iA(z,).  ^lim      EHj(-l)  (4-7) 

'  ■^  .1=1 


Since  z,^=.z^  +  ,5x-i<5y  and  ZM^i  =  Zf^  +  5x- i^y  in  Figure  4-2,  terms 
of  j=l,M-l,  M,  and  N  must  be  sorted  out  from  the 
summation , 

2.i^(z,)  =   sl%-.o{    "l^"l)+  "m-i(-i)+  H,,(-i)  + 

N  \ 

"n(^i)+    E      "i(^l)  (4-8) 

j=l  / 

j^l,M-l,M,N 

Then  by  applying  the  limit  as  indicated  and  using  (4-1)  and 

the  relations  z^_^^=z^    and  w^_^^=^^,    there  is  derived 

2.i^(z,)=.,ln(4aZfl_]^    E      H.(z,) 
\         /     j=l 

j^tl  ,M-1,M,N 

+  i*[lnfJM±lZfl^_/'_^lZfN^l_^l,r^M±lZ^^^      ,^  q^ 
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Figure  4-2.  Pictorial  representation  of  the  limiting 
process  of  Zq-^zj  and  5z->0 . 


comes 
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where  the  natural  logarithm  term  inside  the  bracket 
from  the  w^  in  the  Hf^_^(z-^)  term  in  the  summation.  This  w^ 
is  related  to  Q^_^_^  by  (4-2),  thus  producing  this  extra  i* 
term.  It  is  noted  that  because  of  the  way  (4-9)  is  derived, 
w(z„)  is  set  equal  to  w(z-^)  and  ij(z^_^^)  is  set  equal  to 
'^(Zjvj)  in  the  summation  in  this  equation. 

An    identical    procedure    can    be    used    to    derive 
2Tiw(z|y^_|_^)  ,  and  then  a  general  equation  can  be  deduced  as 

2.i    ^(z^)=    ..(z^)     In    (l^-^^Z    llj    +    |;^  Hj(zi^) 


J  = 
j?tk-l  ,k,M,N 


MbHr^f  M+1  -k\  (  -^k~^N-i  ^]„/  .M+l-^k^,^^k~^M-l^.  /  ^i-^u  \, 


k> 
(4-10) 


Equation  (4-10)  can  be  used  for  any  point  on  the  boundaries 

of  the  domain  in  Figure  4-1  as  long  as  the  following  rules 

are  adopted :  '  " 

(i)   When  k=l ,  k-l=M-l ;  when  k=M+l ,  k-l=N-l. 

(ii)  Singularities  in  the  logarithmic  terms  can  be 

cancelled  out  in  the  limiting  procedure.  For  example, 
when  k=l,  the  term  in  the  brackets  in  (4-10)  becomes 

i>^[ln(fM±iyi)-f/l~^N-l  )ir,(^]ttlZ^)  +  (^lZ^N^\.  ,/_^lZ^l  ^, 

where  the  ln(z-^-  z-^)  cancels  out,  leading  to  the  term 
in  brackets  in  (4-9) . 
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(iii)Rule  (i)  above  also  applies  to  the  summation.  For 
example,  when  k=l  ,  k-l=:M-l  ;  then,  Hj^,_^  should  be 
excluded  from  the  summation  in  (4-9) . 
(iv)  In  the  summation  of  the  terms  H.(z.)  in  (4-10),  w(z„) 
is  set  equal  to  ui(z^)     and  u>(z^_^^)     is  set  equal  to 
'^(zj^)  for  the  reasons  previously  explained;  see  the 
paragraph  following  (4-9). 
(v)   Since  a;(z^)  is  related  to  a;(z^)  and  u,(z^_^^)     is  related 
to  w(z^)  by  equations  (4-1)  and  (4-2),  the  w(z,^)  and 
'^(z^ivj)  equations  are  redundant. 
The  CVBEM  developed  above  are  strictly  valid  for  the 
doubly  connected  domain  shown   in  Figure  4-1.   In  order  to 
develop  a  general  method  that  is  reducible  to  the  simply 
connected  domain  analyzed  earlier,   a  new  numbering  system 
is  introduced  as  shown  in  Figure  4-3.   In  the  new  system, 
the  cut  is  effectively  eliminated  in  the  doubly  connected 
domain.  The  point  M  now  takes  the  place  of  the  old  point 
M-1,  and  the  point  N  takes  the  place  of  the  old  point  N-1 
(Figure  4-1).   With  these  changes,   the  new  nodal  equation 
can  then  be  derived  as 

2.iA(.j^)  =  {^(z^)ln(^i<±4l5^)   + 

f    r^j  +  l^'k-^.j)-  ^j(zi,-z.^,)    ^z    -z 
j,j+l9^k 
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>x 


Figure  4-3.  New  numbering  system  i^or  boundary 

discretization  for  the  CVBEM  in  a  doubly 
connected  domain. 
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where,  depending  on  the  location  of  the  nodal  point  z^,    the 
term  Ai^  is  given  by  one  of  the  following  expressions: 

k;k9tl,M,      '■\^l-^\[J      \^M     ^k^  V  ^1  ^k    J 

M+1,N 

Zi,— Zm  \    /Zii,i  —  Z 


-fz  '^-^  )l"(l^i7^)l  (4-12) 

V^M+1  ^N/   V  z^N  zj^  ;j  V     y 


and  for  the  special  k's, 


A,   =(ln(:|±i;^)-(.ii=3,)ln(^|±i;^),   (4-13, 


Zij  —  Zm   \    /Zii  ,  1  — Zi 


A,,   =  [ln(l+i;^n-(/^^  _N  )ln(l+l,  ^^)]   (4-14) 
M+1   ^V  ^1  ^M  /   V^M  2;|^^;^;    V^^i  Zm+1>"   ^     ^ 


/Zm— Zw\    /Z-,— Zm\       /Z,,  ,  1  — Z 


fcv,v 


Notice  that  equations  (4-11)  to  (4-16)  are  valid  for  a 
doubly  connected  domain  in  the  new  numbering  system  in 
Figure  4-3.  In  the  new  numbering  system,  when  k=l  ,  k-l=M; 
and  when  k=M+l ,  k-l=N. 

It  is  informative  to  compare  equations  (4-11)  and 
(3-17).  Clearly  the  right-hand  side  of  (3-17)  is  exactly 
the  braced  term  in  (4-11).  A  relation  can  be  established  as 

2Ti[ci(z^)]0  =  2Ti[^(z^)]g+i*Aj^  (4-17) 
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where  the  subscripts  D  and  S  refer  to  the  nodal  equations 
for  doubly  and  simply  connected  domains,  respectively.  The 
term   i*Aj^  plays  the   role  of  a  perturbation  and  accounts 
for   the   double   value   of  ij      along   the   cut.   For   simply 
connected  domains,  such  a  cut  does  not  exist;  the  summation 
of  j   in  the  braces  terminates  at  j=M,   and  the  i  *A,   term 
drops  out.  Equation  (4-11)   is  thus  reducible  to  the  simply 
connected  domain  equation  (3-17).  It  is  noted  that,  for  the 
development  to  follow  in  the  remainder  of  this  chapter,  all 
node  numbering  will  refer  to  the  new  system  in  Figure  4-3, 
unless  noted  otherwise. 

It  is  now  possible  to  derive  the  equations  relating  the 
estimated  temperature  and  stream  function,  $(z,)  and  '^{z,), 
to  the  specified  temperature  and  stream  function,  ^,  and 
^j^.  The  first  term  on  the  right-hand  side  of  (4-17), 
associated  with  the  single  valued  nodal  equations,  is 
expressed  as 

N 
+  E    [^j  +  i(2:i,-Zj)-a;j(zj^-Zj^^)](C+iD)    (4-18) 
J  ;^j  +  l^k 

Here,  d(   )  and  ${        )  have  been  given  in  (3-23)  to  (3-25). 
The  constants  C  and  D  are  given  in  Table  4-1. 


:1 
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Table  4-1 . 

Expressions  for  coefi^ic  ients  C,  D,  A,  B,  and  F 
in  Equation  (4-18). 


C  =  [A(Xj^-L-Xj)+B(yj^^-yj)]/F 

D  =  [B(Xj^^-Xj)-A(yj^^-yj)]/F 
where 

A  =  In  I 


B 

F 


(x.  ,i-x.)'^+(y-  ii-y-)"^ 
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Next    "the    ■term    A.      is    decomposed    as 

^k  =  %+i%  (4-19) 

The  components  of  A.  can  be  derived  by  expanding  (4-12)  to 
(4-16)  into  their  real  and  imaginary  components,  and  with 
the  help  of  the  explicit  expressions  for  A.  in  (4-19), 
giving 

%i^=l^^k-CN,k('^k-"^N)+Dp^,k(yk->'N)+CM,k(Xk-XM)-DM^l^(yj^-y^,)] 

(4-20) 

%=l^^k-CN,k(yk-yN)-DN,k('^k-^N)+CM^l,(yi,-yM)+DM^l^(x^-x^)] 

(4-21) 

where  the  coefficients  C's,  D's,  E,  and  F  are  listed  in 
Table  4-2.  Coding  rules  for  the  subscripts  encountered  in 
the  general  expressions  of  the  C's  and  D's  are  given  in  the 
table.  Provisions  are  also  made  in  the  table  for  the 
modifications  required  to  evaluate  A^  ,  Aw,  A..  ,  h  ,  and  A», , 
The  nodal  equation  (4-17)  can  now  be  written  as 

2irifi(z^)+ii>(z^)]Q    =    2Ti[<i(z^)]g+i*(A^  +iA^  )  (4-22) 

Then,  by  introducing  (4-18),  (4-20),  and  (4-21)  and  by 
equating  real  and  imaginary  parts,  the  nodal  expressions 
for  the  temperature  and  the  stream  function  are  extracted 
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Table  4-2 


Equations  for  A,   and  A,  and  coding  rules 


Equat.  ion 


Eq .  No 


(4-20) 

%  =  [f^k-CN  ,  k  (^k-^N)  -^N  ,  k  ('^k-^N)  +^M  ,  k  (^k-^M)  +Dm  ^  ^  ^^k-^iw)] 

(4-21) 

where 


Ek   = 


^e,k- 


In  I 


^  (^M+l'^k) 


D 


e  ,  k 

^e,k^ 

^e,k^ 
Fe   ■■ 


f  ^e,k(^f-^e)  +  B^^k(yf-ye)]  /  Fe 
[  ^e,k(^f-^e)-^e,k<^yf-ye)]  /  Fg 

d(ze,zj^) 
61  (z^,ze;zj^)  =  arg(z^-z^)  -  arg(ze-z^) 

(x^-xe)^  +  (y-f-Ye)^ 


Coding  rules  "for  subscripts  e  and  f  in  the  C   ■  through  Fe 
equations  given  above: 
(i)  For  e=M  ,  f  =  l. 
(ii)For  e=N  ,  f  =M  +  1  . 
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Table  4-2  (Continued) 


Modifications  in   Ej^  through  Fg  equations  for  A-^,     A^      ^M+1 


and  A 


N 


(i)   For  k  =  l:  E,  =  ln|^^^f±il^|,  F,=.0 


^M+l'^M'^1^'  ^"^ 


Cm,1=  Dm^i=  0 


(ii)  For  k:=M:  C^,  ^,=  D^,  ^,=  0. 

d  Cz   z    ) 
(iii)For  k  =  M  +  l:  E,^=  1  n  |  ^  ^^^  |^M+1^  |  ^  Fj^=^(z^  ,  z-^ ;  z^^^) ,  and 

(iv)  For  k  =  N:   C;^^n=  ^N  ,N=    °- 
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as  the  following  pair  of  algebraic  equations: 


+^3,yj+G4,j5j^l]+^A     (4-23) 


N 


^(^k)=B*^k-  A*^k  +  i:    [G3,j^+G4^j^j^^ 

j  ,j  +  l#k 

-^l,A-«2,j^j  +  l]  +  iA^^   (4-24)   ;,. 

where,  the  expressions  for  A*,B*,G.  .'s,  and  A's  are  given 
explicitly  in  Tables  4-2  and  4-3.  The  nodal  equations 
(4-23)  and  (4-24)  relate  the  temperature  $(zj^)  and  stream 
function  ^(zj^)  at  the  nodal  point  z^  to  the  specified  nodal 
temperatures  and  stream  functions,  ^.  and  ^.,  along  the 
boundary. 

The  nodal  equations  derived  above  are  sufficient  to  , 
solve  most  potential  problems  involving  only  <i>  and  0. 
However,  for  heat  conduction  problems  involving  Neumann  and 
Robin  boundary  conditions,  additional  equations  must  be 
derived  to  relate  ^,  V- ,  and  the  heat  flux  q,  as  shown  in 
the  next  section. 


Modeling  Heat  Conduction  Boundary  Conditions  for  the  CVBEM 
Applying   a   Dirichlet   boundary   condition   poses   no 
difficulty  whatsoever  as  it  is  equivalent  to  specifying  the 


h-.r'. 
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Table    4-3. 

Coef f i c ients    A*,B*,     and    G-      •    for    the    nodal 
equations    (4-23)    and    (4-24) . 


A* 
B* 
G 


li 


^(^k+l'^k) 


l,j 

'3,j 
'4,j 


27r    ""     '     d(z^_^,zj^) 
2i    ^    (^k+l'^k-l'^k) 

Af  [D(yk-yj+i)-c(Xk-Xj^i)l 

i    (C(xi^-Xj)-D(y^-y.)] 

-A    [C(y^-yj  +  l)+D(x^--<j+l): 
ip    [D(x^-Xj)+C(y^-yj)] 


where  C  and  D  are  given  in  Table  4-1. 
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^  values  at  the  boundary.  However,  when  a  Neumann  condition 
is  imposed  at  the  boundary,  the  Cauchy-Re imann  conditions 
can  be  used  to  derive 


"j  +  1 


^j 


+  1=  ^j  -  1   k(^)  '^^'    ^^^  (4-25) 


z 

J 


Consistent  with  the  linear  approximation  oi^  the  complex 
inunction  w ,  the  heat  flux  is  approximated  as  linear  over 
the  element  F-,  and   equation  (4-25)  becomes 


^  +  1  =  ^- 


0  [^,l(^)©j  +  ^j,2(-)(g)j+l](-j  +  l-j)<^-   (4-26) 


Evaluating  the  integral  in  equation  (4-26)  and  summing  over 
/  elements  gives  a  relation  between  ^  x.i    and  ti>  ■    as 

^j+/  =  ^  +  E  [-  ©a,j  +  i-l(^-)j  +  i-l]  (4-27) 

1  =  1 


where 


(g)a,J.i-l  =  Mg)j.i^(g)j  +  i-ll  (■'-2S) 

(^=)j  +  i-l=d<^j  +  i.^j  +  i-l)=l^j  +  i— J  +  i-ll    (4-29) 

Equation  (4-27)  can  be  used  to  evaluate  ip  on  both  outer  and 
inner  boundaries.  On  the  outer  boundary,  M>j+/>1;  and  on 
the   inner   boundary,   N>j+/>M+1.   For   a   heat   conduction 
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problem  with  heat  i^lux  specii^ied  along  a  boundary,  equation 
(4-27)  can  be  used  to  prepare  a  data  set  for  direct  input 
into  the  nodal  equation  (4-23)  or  (4-24),  depending  on  the 
method  of  assembly  of  equations  chosen  for  solving  the 
problem . 

A   Robin   (or   convective)   condition   imposed   on   the 
boundary  is  modeled  by  the  relation 


f^  +  ^  (0  -  <?ioo  )  =  0  (4-30) 


Here,  h  is  the  convective  coefficient  (which  may  also 
account  for  radiation  if  linearized),  and  (f>QQ  is  the 
ambient  source  or  sink  temperature.  Following  a  procedure 
similar  to  that  leading  to  equation  (4-27),  the  stream 
functions  are  related  by  the  Robin  condition  in  the 
following  expression: 


^j+/  =  ^  +  i:[(^^-)a,j  +  i-l(^-)j  +  i-l]  +  E[-(&^)a,j  +  i-l(As)j  +  i_l] 
1  =  1  1  =  1 


(4-31) 


Here 


(K^)a,j  +  i-l4[(R^)j  +  iH^^)j  +  i-l]  (4-32) 

which  also  holds  for  «!>=<^oo  •  Equation  (4-31)  relates  the  j +/- 
th  stream  function  to  the  j-th   stream   function,  and  once 
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again  M>j+/>1  on  the  outer  boundary,  and  N>j+/>M+1  on  the 
inner  boundary.  Equation  (4-31)  provides  an  additional 
relation  between  the  stream  function  and  the  temperature  at 
the  boundary;  however,  because  of  its  complexity,  it  is  not 
possible  to  use  it  as  direct  input  to  the  nodal  equations 
(4-23)  and  (4-24).  Its  use  in  the  solution  will  be 
discussed  in  the  next  section. 

Assembly  of  the  Boundary  Element  Equations 
A  close  examination  of  (4-23)  and  (4-24)  reveals  that 
the  potential  and  stream  function  at  the  point  z,  are 
estimated  by  the  weighted  sum  of  potential  and  stream 
function  at  every  point  on  the  boundary.  Notice  that,  in 
these  equations,  the  estimated  quantities  are  marked  with 
caps  (a),  whereas  the  prescribed  quantities  are  marked  with 

A  A 

bars  (-)  .  Then,  the  estimated  (f)  and  ip  that  appear  on  the 
left-hand  side  of  the  equations  also  depend  on  the 
prescribed  ^  and  4'  at  the  same  point  but  on  the  right-hand 
side  of  these  equations.  This  is  a  distinct  feature  of  the 
CVBEM  that  leads  to  different  solution  methods  as  will  be 
discussed  later. 

It  is  also  noted  that  the  coefficients  A*,  B* ,  and  G's 
in  (4-23)  and  (4-24)  are  solely  dependent  on  the  nodal 
point  locations;  see  Tables  4-1  and  4-3.  Here,  A*  and  B* 
are  functions  of  Z|^_j,z.  ,  and  Zj^  ..  ,  while  all  the  G's  are 
related  to  z-  where  j^k-l,k.  For  a  doubly  connected  domain 

•J 
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whose  boundaries  are  fully  specified,  all  the  coefficients 
can  be  evaluated. 

A  final  point  is  related  to  those  source  terms, 
^A^  and  ^A^  ,  in  (4-23)  and  (4-24).  They  are,  of  course, 
the  result  of  the  perturbation  term  in  (4-17) .  As  shown  in 
(4-20)  and  (4-21),  these  source  terms  are  related  to  the 
positions  of  z^,  z^,  Zj^ ,  Z]y|^^ »  and  Zj^ .  Specifically,  they 
include  the  location  of  the  point  where  (j>  and  ip  are 
evaluated,  and  also  those  four  points  which  are  along  the 
original  line  of  cut.  Calling  these  source  terms  as 


ST^  = 


^k   2;r  <ii^ 


(4-33) 


ST  ,  = 


* 


V-k   27r  V-k 


(4-34) 


it   is  possible  to  combine   (4-23)   and   (4-24)   in  a  matrix 
equation  as 


S,^ 

*^R,^ 

4> 

+ 

ST^ 

= 

A 

<f> 

^I,^ 

^l,^ 

ST^ 

A 

(4-35) 


Here  the  subscripts  R  and  I  for  the  partitioned  matrices  C 
refer  to  the  fact  that  the  set  of  N  (/>-equat ions  are  derived 
from  the  real  part  of  equation  (4-11),  and  the  set  of  N  tp- 
equations  are  derived  from  the  imaginary  part  of  the  same 


•^■>ij>j;  • 
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equation.  These  part  it  ioned  matrices  are  oi^  order  N.  The 
matrix  "formulation  given  by  equation  (4-35)  is  highly 
desirable  in  that  the  elements  of  each  row  in  the  global 
coefficient  matrix  sum  to  one,  an  outcome  of  the  uniform- 
potential  domain.  Furthermore,  in  the  partitioned 
matrices,  all  elements  in  each  row  of  C-7  must  sum  to  zero, 
whereas  all  elements  in  each  row  of  C-r  must  sum  to  one. 
These  results  are  handy  in  checking  computer  coding. 

Prior  to  planning  solution  strategies,  a  re- 
examination of  equation  (4-35)  is  in  order.  For  a  doubly 
connected  domain  with  prescribed  inner  and  outer 
boundaries,  there  are  no  unknowns  in  the  global  coefficient 
matrix.  However,  each  component  of  the  ST  vector  contains  ^ 
which,  according  to  equations  (4-3)  and  (4-27),  is  related 
to  the  heat  flux  q  on  the  boundaries.  In  the  solution  of 
heat  conduction  problems  with  prescribed  Dirichlet  and 
Neumann  conditions,  either  temperature  or  heat-flux  values 
are  given  on  the  boundaries.  The  heat  fluxes  are, 
nevertheless,  related  to  V  a-s  in  (4-27)  .  However,  for  a 
Robin  condition  imposed  on  the  boundary,  none  of  the 
temperatures  or  heat  fluxes  are  given,  yet  they  are  still 
related  as  in  (4-31) .  With  these  serving  as  guidelines, 
three  solution  methods  are  developed.  They  are,  namely, 
implicit,  explicit,  and  hybrid  (explicit/implicit)  methods. 


^^ 
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Solution  Q-f  "the  Boundetry  Element  Equations 
The  type  of  solution  method  developed  hinges  on  how 
the  specified  and  evaluated  4>  and  ip  are  related.  For 
example,  if  <f>,  is  given  at  nodal  point  Zi  (a  Dirichlet 
boundary  condition),  then  ip<  is  unknown  at  this  point.  The 
implict  solution  method  is  formulated  by  setting  ip,  equal 
to  tp,  in  the  N  +  k-th  equation  in  (4-35).  In  the  meantime, 
since  <f>,  is  given,  (j>,  is  no  longer  an  unknown;  this  permits 
the  k-th  equation  to  be  deleted  from  (4-35).  The  implicit 
equation  for  node  k  is  then  obtained  by  rearranging  the  ip 
nodal  equation  in  (4-24)  as 


■«l,j^J-^2,j^  +  ll+  *V^^-^^> 


This  equation  can  then  be  used  together  with  other 
equations  to  solve  for  the  unknown  Vu  •  Inasmuch  as  the 
unknown  ip,  appears  on  both  sides  of  (4-35)  ,  this  method  is 
called  implicit. 

The  explicit  solution  method  differs  from  the  implicit 

A 

method  in  that,  since  (j),  is  given,  <f),  can  be  set  equal  to 
0j^  in  the  k-th  equation  in  (4-35)  .  On  the  other  hand,  ip,      is 

A  _ 

unknown ,  one  can  set  0.  equal  to  rp,  so  that  they  do  not 
become  double  unknowns.  With  this  last  setting,  the  N+k-th 
equation   in  equation   (4-35)   can  be  deleted.   The  explicit 


47 
equation   for   node   k   can   be   obtained   from   the   <;*   nodal 
equation  in  (4-23)  as 


(1-B*)^i^  =A*^k+E   (Gi^ji^j+G2,/j+i 


+«3,j^+G4,j^j^,]+  |pA    (4-37) 


This  equation  can  then  be  used  together  with  other 
equations  to  solve  for  the  unknown  V'j^  •  Notice  that  this 
time  the  unknown  xp,  appears  only  on  the  left-hand  side  of 
equation  (4-35),  the  method  is  thus  named  explicit. 

In  the  implicit  and  explicit  methods  described  above, 
N  equations  are  generated  to  solve  for  N  unknowns.  This 
occurs  when  Dirichlet  and  Neumann  conditions  are  imposed  on 
the  boundaries.  However,  when  a  Robin  condition  is  imposed 
at  the  boundary,  both  <^^  and  ^j^  become  unknowns.  Although 
one  may  still  use  either  the  implicit  or  the  explicit 
method  to  solve  such  a  problem,  there  are  now  2N  unknowns, 
and  one  must  rely  on  (4-31)  to  supply  N  additional 
equations.  As  discussed,  equation  (4-31)  is  complicated 
because  it  contains  both  unknowns  (p  and  j/*  ;  direct  input 
into  equations  (4-23)  is  thus  impossible.  One  must  then 
append  (4-31)  to  (4-35)  to  raise  the  number  of  equations 
solved  simultaneously  for  the  unknowns. 

A  hybrid  method  is  a  combination  of  the  implicit  and 
the  explicit  method;  no  equation  is  deleted  from  equation 


■r^ 


"■^."'A 
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(4-35).   For  the  sake  of  discussion,  use  is  still  made  of 
the  same  example  discussed  earlier.   In  the  hybrid  method, 

A  _ 

the   unknown  rp,       is  set  equal   to  V"!^ »   and  this  yields  2N 

A  A 

equations  for  the  2N  unknowns  <i>,  and  ip,  .  This  occurs  even 
for  a  Dirichlet  and  a  Neumann  condition  imposed  at  the 
boundaries.  Hence,  for  the  hybrid  method,  the  number  of 
equations  to  be  solved  simultaneously  is  always  doubled 
compared  with  the  implicit  and  explicit  schemes.  This  adds 
considerable   effort   to  the   computation   in  the   solution. 

A 

Yet,  (f>  is  evaluated  even  though  it  is  given,  and  this 
provides  a  means  for  checking  the  accuracy  of  the 
computation.  Hromadka  developed  a  computationally  efficient 

iterative    method    for    the    solution    of    the    hybrid 

49  50 
scheme.    '     It  should  be  noted  that  for  all  the  solution 

methods  described  above,  the  global  coefficient  matrix  in 

equation    (4-35)    is   very   nearly   fully   populated   and 

unsymmetric.    Direct    methods    of    solving    simultaneous 

equations  are  thus  useful. 

To  facilitate  readers  to  structure  matrix  equations  for 

the   solution   of   problems   with   the   three   CVBEM   methods 

described  above,  coding  suggestions  are  provided  in  Table 

4-4.   In  addition,   the   implicit  and  explicit  formulations 

are  implemented  in  a  FORTRAN  program  provided  in  Appendix 

A,  and  the  hybrid  formulation  is  implemented  in  a  computer 

program  provided  in  Appendix  B. 


■'..Tt 
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Table  4-4. 

Implicit,  explicit,  and  hybrid  solution  methods 


Implicit  Method: 

1.  If  <f>^  is  specified  at  z.  ,  then  set  <^i^=  4>i,  •  Also  use 
(4-24)  to  solve  for  tp^  by  loading  the  following  equation  in 
the  matrix  equations: 


jA,k-l 
Upon  solution  of  the  matrix  equations,  set  w(z.  )=$,  +^,  . 

2.  If  i/jj^  is  specified  at  z.  ,  then  set  i/'i,=  ^i^  .  Also  use 
(4-23)  to  solve  for  ^j^  by  loading  the  following  equation  in 
the  matrix  equations: 

jA,k-l 
Upon  solution  of  the  matrix  equations,  set  u!(z,)=^,+ip,. 


^k^-Vk^^k 


Explicit  Method 


1-   I"^  ''^k   ^^  specified  at  z.  ,   then  set  <^i.=  c^k.  .   Also  use 

^k    ^^  loading  the  following  equation 


(4-23)  to  solve  for  xp^        by  loading  the  following 
in  the  matrix  equations 


(l-B*)^,=A*^,  +  f;^     t«l,/j+«2,/j  +  l+G3,/j  +  G4,j^j^l]+|^A^^ 
jA,l<-l 

Upon  solution  of  the  matrix  equations,  set  u)(z,)  =<^,+ilu   . 


^k^-'^k^'^'k 


2.   If  t'j^  is  specified  at  z^,    then  set  ^,  =  Vi,  •  Also  use 
(4-24)  to  solve  for  <f>^    by  loading  the  following  equation  in 
the  matrix  equations: 

jA,k-l 
Upon  solution  of  the  matrix  equations,  set  w(z,  )=^,  +^,  . 
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Table  4-4  (Continued) 


Hybrid  Method 


1.   If^,^   IS  specified  at  z,  ,then  set  ^.=  «!.,  ,and  set  rh,  = 

rP..     Also  use  (4-23)  and  (4-'^4)  to  solve'^for  0+  and  i>t   \y 

loading    the  following   two    equations    in  the    matrix 
equat  ions : 


Upon  solution  of  the  matrix  equations,  set  ^  (z^)  =$i^  +  ^J  • 


^.   If  rp,        is   specified   at   z.  ,   then   set  4^^=^. 
fk=fk-  '^^^°  "^^  (4-23)  and  (4-^4)  to  solve  for  ^^  and  4^7    bv 
loading   the   following   two   equations    in   t^e   matrix 
equations : 


and   set 

+ 


■   N 


Upon  solution  of  the  matrix  equations,  set  ^(2,5)=  *t  +  *k 
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CVBEM  Approximation  for  0  and  V-  at:  Interior  Points 


Once  4>  and  ^  are  known  at  all  boundary  nodes  ,  uj{zq), 
where  Zq  G  fi,  can  be  derived  by  focusing  attention  only  on 
the  double-valued  potentials  at  nodes  M  and  N  in  Figure 
4-1.  The  Cauchy  integral  is  evaluated  in  the  limit  as  the 
small  gap  6z    goes  to  zero 

.  .^^i  =   .i;^.0  (   2il   I  ^  d^)      .   (4-38) 
Using  linear  elements,  (4-38)  can  be  integrated  to  yield 


(Zo) 


^i;"y-.0   2n  E  Hj(-o)  (4-39) 


To  account  for  the  double-valued  complex  potential  at 
the  points  M  and  N  in  Figure  4-1  H..  H  H  h  j 
H^  are  sorted  out  from  the  summation,  and  they  are 
evaluated  in  the  indicated  limit.  The  CVBEM  approximation 
to  the  complex  potential  ^(zq)  in  the  old  numbering  system 
of  Figure  4-1  is  then 

"(-)  =  sir  I   Hj(.„).i,(!^^),„(,fizf2_j         . 

J#M,N 
^    ^    z,-Zo  j-UM-fl-^N-J  H'A    ^--J        (4-40) 

Once  again,  transforming  to  the  new  numbering  system  given 
in  Figure  4-3  reduces  the  above  equation  to 


M- 
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N 

2Tiw(zo)=  yZ       "i(^o)  +  i*A  (4-41) 

j  =  l 
where , 


V^l  ^MJ  V^^M   ^O/      V   ^1   ^O   ;   V^^M+l   2;;yj;    \  Z^-Zq     J 

(4-42) 

Notice  here  that:  ZqGO,  but  Zof^T.  With  the  derivation  of  the 
boundary-  and  interior-node  equations  and  the  presentation 
of  nodal -equat ion  assembly  procedure,  the  development  of 
the  linear  CVBEM  in  doubly  connected  domains  is  now 
complete.  The  CVBEM  will  now  be  applied  to  the  solution  of 
heat  conduction  problems. 


CHAPTER  V 
NUMERICAL  APPLICATIONS 


As  in  any  numerical  method,  concern  arises  over  the 
accuracy  and  convergence  of  the  CVBEM  in  solving  problems 
in  doubly  connected  domains.  To  this  end,  heat  conduction 
problems  with  available  exact  solutions  will  be  solved 
using  the  CVBEM,  and  the  numerical  results  will  be  compared 
with  the  exact  solutions  i^or  error.  These  examples  will 
consider  three  type  of  boundary  conditions,  and  in  order  to 
compare  the  results,  one  of  the  examples  will  be  solved  by 
using  both  the  RVBEM  and  CVBEM.  In  addition,  another 
example  is  solved  using  the  three  solutions  methods 
described  in  the  previous  chapter. 

Description  of  the  Examples 

Three  geometries  are  used  for  test.  They  include  (i)  a 
square  region  with  a  concentric  square  hole  punched  out, 
(ii)  a  circular  annulus,  and  (iii)  an  irregular  geometry 
enclosing  an  irregular  hole. 

The   conditions    imposed   on   the   square   region   are 

illustrated  in  Figure  5-1.  With  the  exact  solution  chosen 

as  a;(z)=z,  heat  flows  steadily  form  the  right  to  the  left, 

and   the   horizontal   lines   in   the   domain   correspond   to 

streamlines,    while    the   vertical    lines    correspond   to 
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Exact  solution:      cj  (z)=3 
~2        -1     t      1  2 


Equipotential  lines 


Figure  5-1.  Exact  potentials  and  streamlines  for  heat  flow 
in  a  hollow  square  region. 
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equi potential    lines.    Physically,    all    the    horizontal 
boundaries  are  insulated,  and  the  vertical  boundaries  are 
imposed   with   uniform   temperatures.    In   the   numerical 
solution,   the  boundaries  are  discretized  using  ten  nodes, 
and   Dirichlet   boundary   conditions   are   specified   at   all 
nodal  points.  With  the  chosen  temperature  field,  the  total 
heat  flow  rate  across  either  the  inner  or  outer  boundary  is 
zero;  i.e.,  the  Q's  in  (4-3)  are  zero.  Yet,  for  the  sake  of 
generality,   the  <i>     is  taken  as  unknown,   and   its  value   is 
computed  for  comparison  of  error.  In  addition,  the  value  of 
rP    at  point  1  is  taken  to  be  zero.  This  serves  the  purpose 
of  picking  the  constant  of  integration  relative  to  which 
all   the   remaining  stream  functions  are  evaluated.   It   is 
noted  that  since  much  is  known  about  the  heat  transfer  in 
this   square,   this   problem   serves   as   an   excellent   first 
example  for  testing  the  CVBEM . 

The  second  geometry  is  sketched  in  the  inset  of  Figure 
5-2.  Here  three  cases  are  tested,  and  their  exact  solutions 
are  given  by  the  three  a;(z)  equations  in  the  legend.  The 
circular  boundaries  are  discretized  into  24  elements,  with 
each  boundary  consisting  of  12  points.  All  <i>    values  at  the 
boundaries   are   computed  with  the   c.   equations  given,   and 
they   are,   in   turn,   used   as   input   for   solving   for   the 
unknown  ^'s.   Here  again  at  node   1   in  addition  to  the  ^ 
value  being  given,  the  ^  value  is  chosen  as  zero  (constant 
of  integration).  Notice  that  these  three  cases  tested  here 
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Figure  5-2.  The  CVBEM  applied  in  the  solution  of  three 
problems  in  a  circular  annulus. 
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for  the  annulus  share  the  same  feature  in  that  the  total 
heat  flow  rates  over  their  boundaries  are  zero;   i.e.,  Q's 
are  zero   in   (4-3).   Yet,   like  the  previous  example,   t  is 
taken  to  be  unknown  and  computed  in  the  solution. 

A  different  set  of  Dirichlet  conditions  is  imposed  on 

the  boundaries  of  the  annulus  shown  in  Figure  5-3.  Here  the 

1    •     •      .         ■      /  N   ln(z/Ri) 
exact   solution   is   taken   to   be   w(z)=:; — 77; — ,^  . \  ,   and   this 

ln(Ro/Hi) 

represents  a  situation  where  heat  is  supplied  at  the  outer 
boundary  to  maintain  it  at  a  uniform  temperature  4>—'i-^  and 
where  the  heat  is  removed  from  the  inner  boundary  to 
maintain  it  at  a  uniform  temperature  <f>=0 .  Here  the  total 
heat  flow  rates  across  the  boundaries  are  not  zero.  With 
the  total  number  of  nodes  N  sequentially  picked  as  24,  48, 
and  72,  this  example  serves  the  purpose  of  testing  the 
convergence  of  the  numerical  solution. 

The  third  geometry  is  an  irregular  domain  sketched  in 
Figure  5-4.  It  is  tested  for  the  three  different  boundary- 
condition  combinations  given  in  the  legend.  The  exact 
temperature  distribution  is  given  by  the  relation 
w(z)=ln(z),  and  it  is  used  to  generate  the  conditions 
imposed  on  the  boundaries.  For  this  example,  a  total  of  50 
nodal  points  is  used  to  discretize  the  boundaries. 

In  all  the  examples  tested  above,  the  conditions 
imposed  on  the  boundaries  are  either  of  the  Dirichlet  or 
the  Neumann  type.  A  Robin  condition  has  not  been  tested, 
and   the   next   example   addresses   such   a   condition.   The 
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Figure  5-3.  Test  of  the  convergence  of  the  CVBEM  in  the 
solution  of  a  problem  in  a  circular  annulus. 
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Figure  5-4.  CVBEM  applied  in  the  solution  of  an  irregular 
domain  imposed  with  three  different  boundary- 
condition  combinations. 
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annulus  shown  in  Figure  5-5  is  placed  in  a  hot  envi  ronmen't 
so  that  a  Robin  condition  is  imposed  on  the  outer  boundary.  .. 
The   inner  boundary  is  maintained  at  a  unii^orm  temperature 
(^  ■  .      The  analytical   solution  "for  this  problem   is  taken  as 

^X^^   =   /"/o'C'l°\'^///mV   -'^-^^   Bi=hRo/k   is   the   Biot 
<t>^-<Poo  In(RyRo) -(1/Bi) 

number  and  (po©  is  the  temperature  oi^  the  hot  surroundings. 
Notice  that  this  problem  actually  serves  two  purposes:  it 
not  only  tests  the  Robin  condition  but  it  also  compares  the 
results  of  the  CVBEM  with  the  RVBEM .  In  this  comparison, 
the  same  discretization  schemes  are  used  on  the  boundaries 
in  both  methods,  and  two  cases  are  tested  as  follows.  In 
the  first  case,  24  elements  are  used  on  the  boundaries, 
;:'       with  each  boundary  consisting  of  12  nodal  points.   In  the 

second  case,  the  number  of  elements  on  the  boundaries  are      ' 
doubled .  'f' 

It  is  noted  that  the  examples  described  above  are  all     •  • 
solved  using  the  implicit  method  described  in  Chapter  IV. 
In  order  to  test  the  other  solution  methods  given  in  that 

chapter,    a   final    example    is   provided   as   shown    in 

■'■        .  2 

Figure  5-6.  Here,  the  w(z)=z   test  case  in  Figure  5-2  is 

re-studied  for  the  effects  of  the  solution  methods  used. 

The  cross  (+)  plotted  for  the  implicit  method  in  Figure  5- 

2  is  plotted  as  square  (  D  )  in  Figure  5-6. 

...'.'  ;        In   the   present   study,   the   accuracy  of  the   numerical   "  J,- 

■  .  :    solution  is  measured  by  the  relative  error  defined  as 

f  ;;^  ii 

■f  ]'-.■/■■' 
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Figure  5-5.  Comparison  of  the  results  of  the  CVBEM  to  RVBEM 
applied  in  the  solution  of  an  annulus  imposed 
with  a  Robin  condition. 
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Figure  5-6.  Comparison  of  three  solution  methods 
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_   I  a^(z)-w(z)   I 
^^-  max[|w(z)|,|z|]  ^^  ^^ 


where  w(z)  is  the  exact  solution,  and  w(z)  represents  the 
CVBEM  solution.  All  computations  were  performed  in  double 
precision  on  an  8-Mhz  80286  microcomputer  using  the 
Microsoi^t  Fortran  4.1  optimizing  compiler.  A  Gaussian 
elimination  algorithm  with  partial  pivoting  and 
equilibration  was  used  to  solve  the  simultaneous  equations. 
A  singular  value  decomposition  algorithm  was  also  invoked 
in  dealing  with  the  solution  oi^  matrix  equations  whose 
coefi^icient  matrices  are  poorly  conditioned. 

Results  and  Discussion 

The  0  and  tj)  values  i^or  the  square  region  are  accurately 
computed  by  the  CVBEM;  see  Table  5-1.  In  addition,  the 
total  heat  i^low  rates  across  the  boundaries  are  computed  to 
be  *=7. 099x10"  ,  which  is  in  excellent  agreement  with  the 
exact  value,  "^exact"^"  T^^is  good  accuracy  can  be  ascribed 
to  the  fact  that,  in  this  example,  linear  elements  have 
been  used  to  model  (i)  the  first-degree  analytic  function 
w(z)=z,  and  (ii)  the  piecewise  linear  boundary  of  the 
domai  n . 

For  the  annulus  shown  in  Figure  5-2,  the  first  case, 
u;(z)=z,  yields  highly  accurate  results  for  the  same  reason 
above.  The  other  two  cases  tested  have  a  maximum  error  of 
about  S7o.     The  exact  and  CVBEM  generated  isotherms  for  the 
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Table  5-1. 

Results  of  the  CVBEM  solution  for  heat  -flow  in 

a  hollow  square. 


Boundary  Conditions  Imposed 


<j)    -    on  Fq  and  F . 


Node 

Number 

^<i> 

^rl> 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

O.OOOOE+00 
0.1776E-14 
0.6661E-15 
0.4441E-15 
0.1776E-14 
O.lllOE-15 
0.6328E-14 
0.8882E-15 
0.7772E-15 
0.6217E-14 

0.3706E-14 
0.1332E-14 
O.lllOE-14 
0.1332E-14 
0.8882E-15 
0.1457E-13 
0.2220E-15 
0.1776E-14 
0.1887E-14 
O.lllOE-15 

Definition  of  the 

errors  e ,   and  e , 

above : 

^<^-     !'=^,CVBEiM 


4> 


^ip-     I^CVBEM  ~  ^ 


EXACT 


EXACT 
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2 
ti;(z)=z   problem  are  plotted  in  Figure  5-7.  The  results  show 

good  agreement  between  the  CVBEM  and  the  exact  solution  in 

regions  of  small  temperature  gradients.   The  values  for  ^ 

are   also   computed   for   all   cases   to   be   ^12  =  0.000035, 

*|  0=0.0176,   and  *|  2=0. 0197.   Given  the  small   number  of 
z^  e 

nodal  points  (N=24)  discretized  over  two  boundaries  of 
this  geometry,  such  errors  are  not  unexpected.  These  errors 
can  be  reduced  by  increasing  the  number  of  nodes.  As  shown 
in  Figure  5-3,  the  maximum  error  of  7%  at  point  5  is 
effectively  reduced  to  less  than  1%  when  the  total  number 
of  nodal  points  is  increased  from  24  to  72. 
Correspondingly,  the  error  in  4"  is  also  reduced  from  1.6% 
(for  24  nodes)  to  0.14%  (for  72  nodes). 

Attention  is  now  directed  to  the  irregular  geometry 
tested  in  Figure  5-4.  Here  a  maximum  error  of  7%  is  located 
at  point  9,  and  this  takes  place  when  the  temperatures  are 
imposed  on  the  outer  boundary  and  the  heat  fluxes  are 
imposed  on  the  inner  boundary.  At  other  nodal  points  and 
for  other  boundary-condition  combinations,  the  errors  are 
less  than  2%.  Notice  that  N  =  50  for  this  example.  Since  the 
errors  can  be  reduced  by  increasing  the  N  as  demonstrated 
in  Figure  5-3,  the  CVBEM  are  still  accurate  in  solving  this 
irregular-geometry  problem. 

Tests  of  the  CVBEM  in  the  solution  of  Robin-condition 
problems  met  with  equal  success;  see  Figure  5-5.  Since  the 
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Figure  5-7.  Comparison  of  exact  and  CVBEM  generated 
isotherms  i^or  the  w(z)=z   problem. 
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RVBEM  cannot  be  used  to  evaluate  the  stream  "functions,  only 
the  temperature  errors  are  compared  in  the  i^igure.  Here, 
the  accuracy  of  both  methods  appears  to  be  dependent  on  the 
distance  oi^  the  points  measured  from  the  Robin-condition 
suri^ace .  The  maiximum  error  is  less  than  4%  for  the  CVBEM 
when  N=24;  the  RVBEM  appear  more  accurate  (error  less  than 
2.5/o)  .  These  errors  tend  to  converge  rapidly  when  the  value 
of  N  is  doubled.  Also  the  errors  become  less  dependent  on 
the  depth  measured  form  the  surface,  the  maximum  error 
being  less  than  1%.  For  the  CVBEM.  the  error  for  ^  is 
evaluated  to  be  1  .  38/o  when  N  =  24,  and  it  drops  down  to 
0.837o  for  N  =  48. 

The  examples  presented  above  have  all  been  solved  by 
using  the  implicit  method.  One  example  in  Figure  5-2  is 
solved  by  using  all  three  methods  described  in  Chapter  IV 
for  comparison  of  results.  As  shown  in  Figure  5-6,  the 
results  of  the  hybrid  method  appear  to  be  slightly  better 
than  the  implicit  method  at  the  selected  nodal  points. 
However,  at  other  points  (not  shown)  the  results  of  the 
three  methods  are  comparable.  Inasmuch  as  the  hybrid  method 
requires  the  solution  of  twice  as  many  equations  as 
compared  with  either  the  implicit  or  the  explicit  method, 
while  the  hybrid  results  do  not  show  marked  improvement  in 
accuracy,  such  a  hybrid  method  may  not  be  warranted  in 
solving  general  field  problems  imposed  with  Dirichlet  or 
Neumann  boundary  conditions. 
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A  salient  "feature  is  found  for  the  implicit  method.  As 
discussed   in   the   previous   chapter,   the   implicit   method 

discards  the  nodal   equation  "for  4>      (or  V)   whose  value   is 

49  50 
given.   As   pointed   out   by   Hromadka,   '     once   the   nodal 

value  for  V  (or*  <t>^     is  "found  by  the  implicit  method,  one  can 

treat  the  given  (f)      (or  xp)      as  unknown  and  evaluate   it  by 

A    _ 

using  (4-23)  or  (4-24)  .  The  difference  (lA  — </>)  can  then  be 
used  to  gauge  the  errors  in  the  numerical  solution.  In  the 
present  work,  this  method  has  been  used  to  successfully 
check  results.  For  instance,  one  example  in  Figure  5-4  (see 
data  plotted  in  diamonds)  for  which  the  flux  is  specified 
on  the  outer  boundary  and  the  temperature  is  specified  on 
the   inner  boundary  is  solved  first  by  using  the   implicit 

A    _ 

method.  The  values  of  (i^  — <A)  are  then  evaluated  to  reveal  a 

o 
difference  of  0(10  )  at  the  nodal  points  where  the  4>    values 

were   specified.    Noticing   this   large   difference,    the 

situation   is   rectified   by   either   increasing   the   total 

number  of  nodal   points   or   by  switching  to  the   explicit 

method  of  solution.  Both  alternatives  work  satisfactorily, 

and  the  data  plotted  in  Figure  5-4   are  the  results  of  the 

explicit   solution.    It    is   noted   that   such   an   error 

estimation  also  holds  for  the  explicit  and  hybrid  methods. 

As  mentioned  earlier  in  the  literature  review,  Hromadka  has 

demonstrated   the   use   of   this   measure   of   error   as   an 

adaptive  discretization  technique. 
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Another  concern  arises  in  the  positioning  of  the  cut 
and  hence  the  placement  of  the  nodes  1  and  M  +  1  on  the 
boundaries,  see  Figure  4-3.  The  sensitivity  of  the  method 
to  the  position  of  the  cut  is  investigated  by  re-solving 
the  problems  in  Figure  5-2  with  the  cut  positioned  at  5,  x, 
and  ^y  .  In  addition,  a  test  is  also  made  by  numbering  the 
nodal  points  beginning  at  the  inside  boundary;  that  is  to 
say,  following  the  defined  contour  integration  direction, 
the  nodes  are  numbered  from  1  to  M  on  the  inner  boundary 
and  from  M  +  1  to  N  on  the  outer  boundary.  Comparison  of  the 
results  shows  the  same  level  of  accuracy  for  all  the  cases 
tested.  The  solution  methods  thus  appear  to  be  insensitive 
to  the  cut  position  and  the  node  numbering  order. 

Another  point  of  interest  is  related  to  the  boundary 

49  50 
discretization.  Hromadka,   '     in  his  solution  of  potential 

problems  in  simply  connected  domains,  has  reported  that  the 

positioning   of   the   nodal   points   along  the   boundary   can 

cause  the  coefficient  matrices  to  become  ill-conditioned. 

This  occurs  more  frequently  when  the  geometry  is  symmetric 

and  when  a  symmetric  discretization  scheme   is  used.   The 

same  problem  is   encountered  here  in  solving  the  problems 

in  doubly  connected  domains.   In  these  problems,  diagnosing 

the   eigenvalue   vector   provided   by   the   singular   value 

decomposition  of  the  coefficient  matrix  is  very  useful   in 

uncovering  the  culprit  nodes.   The  situation   can  then   be 

rectified   by   discarding   the   small   eigenvalues   before 
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backsubst itut ion .  Alternatively,  the  discretization  scheme 
can  be  altered  to  create  a  more  staggered  nodal 
distribution  along  the  boundary.  The  condition  number  of 
the  resulting  coei^f  icient  matrix  should  be  reexamined  prior 
to  the  i^inal  solution. 

The  exeunples  above  provide  an  exposition  oi^  the 
features  of  the  CVBEM  in  the  solution  of  problems  in  doubly 
connected  domains.  The  methods  have  shown  to  be  accurate 
even  with  a  relatively  coarse  discretization  of  the 
boundary  and  to  converge  with  a  refinement  of  the 
discretization  scheme.  In  the  next  chapter,  the  CVBEM  will 
be  extended  to  the  solution  of  problems  in  multiply 
connected  domains. 


CHAPTER  VI 
EXTENSION  OF  THE  CVBEM  TO  MULTIPLY  CONNECTED  DOMAINS 


The  analysis  employed  in  developing  the  CVBEM  for  the 
solution  of  potential  problems  in  doubly  connected  domains 
can  be  extended  for  developing  the  solution  of  these 
problems  in  multiply  connected  domains.  Use  is  first  made 
of  the  triply  connected  domain  shown  in  Figure  6-1  for  a 
continuation  of  the  doubly  connected  analysis.  The 
resulting  analysis  is  then  generalized  to  multiply 
connected  domains  with  a  connectivity  higher  than  two.  Some 
basic  concepts  useful  for  the  doubly  connected  analysis  are 
first  reestablished  for  triply  connected  domains. 

General  Concepts  for  Development  of 
the  CVBEM  in  Multiply  Connected  Domain 

Complex  Potentials  at  Nodal  Points  in  a 
Triply  Connected  Domain 

Refer   to  the   domain   shown   in   Figure   6-1.   Here,   the 

nodal   points  are  again  sequentially  numbered  to  define  a 

continuous    circuit    around    the    domain.    The    positive 

direction   about   this   circuit   is   consistent   with   the 

analysis  of  the  simply  and  doubly  connected  domains  in  the 

previous   chapters.   There   are   four   nodal   points   on   the 

boundaries  where  the  complex  potentials  are  double  valued. 

Starting  from  point  1,   the  nodal   point  M  returns  to  the 

position  of  point   1,   thus  making  the  point   1   a  double- 
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Figure  6-1.  Boundary  discretization  used  to  derive  the 
CVBEM  in  a  triply  connected  domain. 
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valued   nodal   point.   In   a   similar   fashion,   the   complex 
potentials  at  points  M+1 ,  MAB ,  and  MAB+1  are  double  valued. 
It  follows  that 


^M  1 
(zM)=u;(z-^)  +  i*o,   *o=— ^  (6-1) 


-f  \     -f  N   -.T,    .T,   ^ME,  MAB+1  ,-  ^- 


'*'(^ME+l)=^(^MAB)-i*E  (6-3) 

Following  (4-27),  the  stream  functions  at  points  N  and 
MAB  can  be  related  to  those  at  points  ME+1  and  M+1  by 

^(-n)=^(-ME+i)-*AT'   *AT  =  ^T^  (6-4) 

^(-MAb)=^(-M+i)-*AB'   *AB  =  ^^^^^r^  (6-5) 

These   five   equations   will   be   used   later   to   relate   the 

complex  potentials  at  the  double-valued  nodal  points. 

Basis  for  the  Formulation  of  CVBEM  in  a  Triply 
Connected  Domain 

It  should  be  noted  that,  in  Figure  6-1,  the  boundary 
contours  approach  the  double-valued  nodal  points  in  two 
different  ways.  The  double-valued  stream  function  at  point 
1  is  due  to  the  outer  boundary  loop  closing  in  from  below 
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to  point  M,  while  ■that  at  point  M+1  is  due  to  the  inner 
boundary  loop  closing  in  "from  above  to  point  N;  see 
Figure  6-2.  However,  the  stream  functions  at  points  MAB+1 
and  MAB  are  different;  they  are  due  to  the  boundary  loop 
closing  in  from  above.  As  shown  in  Figures  6-1  and  6-2,  the 
boundary  loop  first  closes  in  to  point  ME,  then  it  crosses 
over  to  point  ME+1 ,  and  finally  departs  in  an  upward  path. 

The  concepts  discussed  above  will  be  useful  later  to 
establish  the  equivalence  of  nodal  points  in  the  derivation 
of  the  stream  functions  along  the  lines  of  cut.  For  the 
time  being,  a  basic  equation  will  be  derived  on  the  basis 
of  the  analysis  presented  in  Chapter  IV.  As  shown  in  (4-4) 
through  (4-6),  the  contribution  to  the  complex  potential 
w(z.  )  by  any  boundary  element  T-  comes  from  the  H-(z.  )  tei 
as 

/  Zi.— z  ;  \   /z  ;  ,  -,  — z, 


!rm 


«j(-.)-j.i1^itHi '"Hriir, 


Here  the  first  term  on  the  right-hand  side  accounts  for  the 
complex  potential  that  is  located  at  point  z  •  -.  ,  while  the 
second  term  accounts  for  the  complex  potential  located  at 
point  z..  Then,  for  a  specific  nodal  point  z^  that  is 
shared  by  two  boundary  elements  T   ..  and  T^     (Figure  6-3), 
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Figure  6-2.  Formation  of  double-valued  stream  functions 
at  the  cuts. 
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Figure  6-3.  A  nodal  point  shared  by  two  boundary  elements, 
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-the  contribution  to  the  complex  potential  by  this  point  can 
be  expressed  as 

It  is  noted  that,  at  the  nodal  points  where  the  complex 
potentials  are  double  valued,  the  real  components  of  the 
potentials  remain  unchanged,  and  only  the  stream  functions 
are  double  valued.  Then,  if  the  point  Zn  is  used  to 
represent  any  of  such  points  as  .^ ,  .^^ ,  ,^^^^ ,  ,,d  .^  in 
Figure  6-2,  the  excess  stream  functions  at  these  points  can 
be  derived  by  sorting  out  the  stream  function  component 
from  (6-7)  and  writing  it  as 


where 


^     _  w(zn)-w(zp) 

*n-P  -        i (6-9) 


and  the  denominator  in  (6-9)  is  the  complex  number  i=^^T. 
Here,  for  the  sake  of  generality,  the  first  subscript  of  * 
is  used  to  represent  the  specific  point  whose  excess  stream 
function  is  evaluated,  and  the  second  subscript  refers  to 
the  double-valued  companion  of  that  point.  For  example,  if 

e  1.  With  the  definition 


n  is  set  to  M,  then  p  is  taken  to  b 
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of  (6-9),  the  *i_p  can  be  expressed  in  terms  of  those  *'s 
as  defined  in  (6-1)  through  (6-5). 

Equations  (6-8)  and  (6-9)  can  now  be  used  to  derive  the 
excess  stream  functions  along  the  lines  of  cut.  They  are 
first  applied  to  finding  the  stream  functions  due  to  the 
points  M  and  N  along  the  cut  N/1.   Along  this  cut, 


^^M+1-^m/"I^  ^M-^k  I  (6-10) 


and 


AN-N-(M.l)P^>nLfNZ^ 


^N+l-^NJ^"   ^N-^k  (  (6-11) 


Then  since  — *.,  ...  ^  ^  =  <if,.    .— *^ 
N-(M+1)   M-1~*0' 


.,..,=^:„(fM^ LLf^ZfN^U  jmz^' 


J^k     '^M-l  1,  „/  -'1-^k 


-1=^^11  -N^T-Sc  (6-12) 


Noting  that  the  *o  above  is  the  same  as  the  term  ^  used  in 
the  doubly  connected  domain  of  Figure  4-1,  equation  (6-12) 
is  then  recognized  as  the  last  term  on  the  right-hand  side 
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of  (4-10).  This  term  accounts  for  the  double-valued  stream 
function  component  of  u  in  the  doubly  connected  nodal 
equation  (4-10),  and  correspondingly,  it  accounts  for  the 
double  value  of  uj  in  the  triply  connected  domain.  The  above 
analysis  is  thus  consistent  with  and  reducible  to  the 
doubly  connected  domain  formulation  developed  in 
Chapter  IV. 

For  the  triply  connected  domain  shown  in  Figure  6-1, 
excess  stream  functions  also  appear  at  points  ME  and  ME+1  , 
and  they  must  be  accounted  for.  Applying  (6-8)  to  these 
points  and  using  the  relation  that 

*ME-(MAB+1)=*(ME+1)-MAB=~*E  (6-13) 


gives 


AME  +  A,,,,.-*JlnLfMM 


1  ^k)    \^^MAB-^ME+2y  "l^^ME+2-2kJ 


^1,^MAB+1-^ME-1  j^"  ^ME-l-^k  ^^-^"^^ 


It  is  now  necessary  to  return  to  the  concepts 
established  earlier  in  this  chapter.  As  previously 
mentioned,  the  double-valued  stream  functions  only  appear 
along  the  lines  of  cut,  and  furthermore,  there  is  a  slight 
difference  in  the  ways  the  stream  functions  are  double 
valued   along  the   cuts   (see   Figure   6-2).   Then   equations 


so 

(6-12)  and  (6-14)  must  be  related;  and  indeed,  the  points 
in  these   equations   are   equivalent   to   each   other   in  the 
following  manner: 
Nodal  Points  in  (6-12)     Corresponding  Points  in  (6-14) 

M+1  MAB 

1  MAB+1 

N-1  ME+2 

M-1  ME-1 

Establishing  these  relations  allows  for  the  direct 
extension  of  the  analysis  for  a  doubly  connected  domain  to 
a  triply  connected  domain.  In  particular,  the  nodal 
equation  (4-10)  can  be  modified  to  include  an  extra  term 
that  accounts  for  the  double  valued  stream  functions  along 
the  cut  ME/(ME+1)  as 


2.i^(z^)=^(.^)ln(J^±i4^]  +  f;  Hj(z^) 


j  =  l 
J7^k-l,k, 

MAB ,  MI 


\    ^1     ^k    J    \^M+1     ^N-iy   \^^N-1 


fkZfM^  inUi^fk_ 
^1  ^M-1/   l^M-l-^k 


i*p,[ln(gfMAB 
E"-   \^MAB+ 


-^k  \  /  ^k-^ME+2  V^f^MAB-^k^i 
l-^k^  \^MAB-^ME+2J   1^2ME+2-^kJ 


t^'^^E-l   1  „^MAB+l-^kV 
B+1  ^ME-1   \^ME-l~^ky-' 


^^MAB+J-^^"^  i^"t  ^>"^  ^-^'-  1^  (6-15) 
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and  the  rules  following  (4-10)  are  accordingly  amended  to 
include  the  following  relations: 
(i)   ...  In  addition,  when  k=MAB+l ,  k-l=ME-l ;  when 

k=MAB,k+l=ME+2. 
(iv)  ...  In  addition,  '•^  (^\[\qa.i)     i®  set  equal  to  '^(zwg),  and 

'^(^ME+l)  ^®  ^^'^    equal  to  w(z^^g). 
(v)    .  .  .  So  are  the  formulations  for  a;(zwp)  and 

w  (zwg,-,)  redundant . 
The  other  rules  remain  unchanged. 

In  the  derivation  that  follows,  the  equations  and  rules 
developed  in  Chapter  IV  will  be  extended,  and  to  avoid 
repetition,  only  the  changes  will  be  highlighted.  As  a 
point  of  departure,  the  old  node  numbering  system  given  in 
Figure  6-1  is  changed  to  the  new  system  shown  in 
Figure  6-4.  Points  are  renumbered  according  to  the 
following  scheme: 
Points  in  Old  System  Corresponding  Points  in  New  System 
M-1  M 

MAB  L 

MAB+1  L+1 

ME- 1  LN 

ME+2  LT+1 

N-1  N 

Then  in  the  new  system  when  k=l  ,  k-l=M;  when  k=M+l  ,  k-l=N; 
when  k=L+l ,  k-l=LN;  and  when  k=L ,  k+l=LT+l . 
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Figure  6-4.  New  numbering  system  for  boundary 

discretization  for  the  CVBEM  in  a  triply 
connected  domain. 
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Development:  of  Nodal  Equations  for  CVBEM  in  a 
Triply  Connected  Domain 

In  the  new  numbering  system,  the  complex  potential  at 
point  Z[^  can  be  evaluated  using 


2Ti[^(z^)]^=2Ti[ci(z^)]g  +  i(*oAj^_*^H^)  (6-16) 

Here,  the  subscript  T  refers  to  triply  connected.  The  term 
2n-i  [w(zj^)]g  is  recognized  as  the  braced  term  in  (4-11).  In 
addition,  the  *  in  that  equation  has  been  changed  to  *o 
above.  Equations  for  A^  have  been  given  as  (4-12)  through 
(4-16).  The  new  term  Hj^  appearing  in  (6-16)  is  defined  as 


=^^ML,,L..,,,  -L{^^^}j^^z^yj^L=i^^ 


LN,LT+1 


^k-^LT+lV  „/  ^L-^k 


Zr  — Z 


^"Ur.T-.i-VP  (6-17) 


L-^LT+l/   \^LT+l-^k 


and  for  the  special  k  subscripts  of  E, 

^■^   -i^^M.H^^R:y^i^m^)       (6-20, 


!:' 
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In  the  derivation  of  the  excess  stream  functions  above, 
the  points  along  the  cuts  are  shown  to  be  equivalent  to 
each  other.  This  also  applies  in  the  new  system.  A  close 
relationship   is   thus   expected   between   the   A.    and   H, 
equations.   Indeed,   a   careful   comparison   of   (4-12)   and 
(6-17),   (4-13)  and  (6-18),   (4-14)  and  (6-19),   (4-15)  and 
(6-20),   and   (4-16)   and   (6-21)   reveals  that  the  following 
points  are  equivalent  to  each  other: 
Points  Along  Cut  (M+l)/l    Points  Along  Cut  (L+l)/l 
1  L+1 

M  LN 

M+1  L 

N  LT+1 

A  cross  link  is  thus  established  between  points  in  the  A, 

k 

and  Ej^  equations.  Equations  (4-19)  through  (4-24)  can  then 
be  revised  to  develop  the  computer  codes  for  the  evaluation 
of  the  i^gHj^  term  in  (6-16)  . 
Development  of  Computer  Codes  for  Evaluating  Terms  in  (6-16) 

There  are  three  terms  on  the  right-hand  side  of  (6-16). 
The  first  term  can  be  coded  by  using  equation  (4-18)  in 
which  the  constants  C  and  D  have  been  given  in  Table  4-1. 

The  A^  in  (6-16)  has  been  defined  in  (4-19);  its  real 
and  imaginary  components  have  been  derived  as  in  (4-20)  and 
(4-21).  The  coefficients  in  these  equations  have  been 
listed  in  Table  4-2. 
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The  El   term  is  new  and  can  be  evaluated  by  revising  the 
previous  coding  for  A.  .  First  following  (4-19)  to  (4-21), 
the  E  is  decomposed  in  its  real  and  imaginary  components  as 

where 

^^ij^^^k-'^LT+l  ,k(^k~^LT+l)+"LT+l  ,  k  ^^yk'^LT+l) 

+'^LN,k(''k-''LN)-"LN,k(yk-yLN)  (6-23) 

and 

-*^=^k~'^LT+l  ,  k  (^k'^LT+l)  ~"lT+1  ,  k  ('^k'^LT+l) 

+^LN  ,  k  (yk-^LN)  +»LN  ,  k  (^k-^LN)  (6-24) 

Here  the  coefficients  K's  and  H's  are  given  together  with 
their  coding  rules  in  Table  6-1.  Notice  that  all  the 
expressions  given  in  this  table  are  deduced  from  Table  4-2, 
in  which  the  nodal-point  locations  are  changed  according  to 
the  list  of  the  equivalence  of  points  along  the  cuts  given 
earl ier . 

Next  (4-22)  is  written  as 

27ri  [<^(zj^)+iV'(zj^)]q.  =  2:ri  [w(zj^)]g 

+i[*o(A.  +iA^  )-*e(E.  +iE^  )]  (6-25) 


86 
Table  6-1 


Equations  for  E,   and  H,  and  coding  rules 


Equat  ion 


Eq.  No. 


+'^LN,k('^k-'^M)-"LN,k(yk-yM)i 

+^LN  ,  k  C^k  -^m)  +"lN  ,  k  (^k-^M)  1 


(6-23) 


(6-24) 


where 


U, 


V, 


e  ,  k 


H 


e  ,  k 
e  ,  k 


=    In  I 


B 


In  I  //"L>^k)   I 

^  (^L'^L+l'^k) 

t  ^e,k(^f-^e)  +  B^^j^(y^-ye)]  /  F, 

f  ^e,k(^f-^e)-A^^j^(y^-ye)]  /  F^ 
d(z-p,Z|^) 


d(ze,z^)   ' 
e,k=    "^  (z^,ze;zj^)  =  a.rg(z^-zj^)  -  arg(ze-Zj^) 
(x^-xe)2  +  (y^_y^)2 


Coding  rules  for  subscripts  e  and  f  in  the  K 


e,k  through  Fg 


equations  given  above : 
(i)  For  e  =  LN,  f  =  L+l  . 
(ii)For  e  =  LT+l,  f  =  L. 


1 


St 

Table  6-1  (Continued)  . 


Modifications  in   U.  through  Fg  equations  for  H 


L+1'-LN'"L' 


and  H^T^i = 


^(^L'^L+l) 


(i)   For  k  =  L+l:  U;^=l"Lrz    z  \l'  Vk=^(^L  '  ^LN  '  ^L+l) '  ^'^^ 


^LN,L+l-  "lN,L+1-  ^' 


(ii)  For  k=LN:  Kln,lN=  "lN,LN=  ^• 

(iii)For  k  =  L:  U^=ln  | -J^^l^^^^  |  ,  '^i,=H^lT+1'^L+1'^0  ^    ^"^ 

^    LiT  X      Li 


•^LT+l.L-  "lT+1,L-° 


(iv)  For  k  =  LT+l:   ^^^^.^j  ^r^^^-  Hlt+i,LT+1-  ° 
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Then,  the  nodal  equations  for  a  triply  connected  domain  are 
readily  obtained  as 


and 


-^%,J^+^4,/j  +  l]+feA^^-§fH^^  (6-26) 


A  _  JV 


(-k)=B*^k-A*^k+  E     CGg^j-^j+G,^  .^^^.^^ 

j;^j+l7tk 

-«l,J^j-S,j^  +  l]+|^A    §Ee  (6-27) 


Here  the  first  three  terms  on  the  right-hand  sides  come 
from  the  27ri  [w(zj^)]  g  term  in  (6-16).  Hence,  the  G 
coefficients  in  these  equations  can  be  found  by  using  the 
expressions  given  in  Table  4-3. 

Finally  a  matrix  equation  can  be  constructed  as  (4-35). 
In  this  equation,  the  right-hand  side  ST  terms  are  re- 
defined for  the  triply  connected  domain  as 


S'Tv-^^A^^oA^I^-^eH^^)  (6_29) 


ve 
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Once  again,  the  three  solution  methods  can  be  used  to  sol 
the  matrix  equation  as  described  in  Chapter  IV.  In  this 
effort,  changes  must  be  made  in  (4-36)  and  in  (4-37)  and  to 
those  equations  in  Table  4-4  as  follows: 

^X^  i(*oA^^-*EH^^),   ^A^j^^  ^(*,A^^_*^H^^)   (6_30) 

The  derivation  of  the  nodal  equations  on  the  boundaries  is 
now  complete. 

Development  of  Equations  for  Interior  Points 
To  derive  equations  for  the  interior  points  z^en     ,     use 
is  again  made  of  equations  (4-38)  through  (4-42).  Referring 
to   the   old   numbering   system   given   in   Figure   6-1,   the 
double-valued   stream   functions   at   the   points   z  ,   z 
^MAB'  ^"^  ^MAB+1  ^^"  ^^     derived  by  sorting  out  U^_^,     H,^ , 

%+l'  "mAB'  "mAB+1'  "mE-1'  "mE'  "mE+1'  "n-1'  ^"^  "n  terms 

from  the  summation  in  (4-39).  Following  the  same  limiting 

procedure   leading   to   (4-41),   an   interior  equation   is 

derived   for   the   triply   connected   domain  in   the   new 
numbering  system  as 

2Ti  [w(zo)]T,  =  27ri  [^(z^)]g+i  (*oA-*gH)  (6-31) 

where  A  has  been  given  in  (4-42) ,  and 


■y. 


90  .,  ,  .    ,..   ... 

^        '  N  ^  ■.         .^       ..^    .   .,  ' 

2Ti[a;(zo)]s=  E  "j(zo)         ^  ^         vJ   (6-32) 


~V^L-^LT+i;^"(^^LT+l-^oj^  (6-33) 

The  above  equation  concludes  the  derivation  of  the  CVBEM 
equations  for  points  inside  a  triply  connected  domain. 

Numerical  Application  of  the  CVBEM 
in  a  Triply  Connected  Domain 

The   development   of   the   CVBEM   for   triply   connected 
domains   is   now   verified   by   solving   a   heat   conduction 
problem   in   the   rectangular   region   illustrated   in   Figure 
6-5.  With  the  exact  solution  taken  as  uj(z)=z,     this  example 
is  analogous  to  the  previously  solved  conduction  problem  in 
the  hollow  square   region  of  Figure  5-1.   Here  again,   all 
horizontal    boundaries    are    insulated;    all    vertical 
boundaries  are  imposed  with  uniform  temperatures,  and  heat 
flows  steadily  from  the  right  to  the  left. 

In  the  numerical  solution  of  this  problem,  the 
boundaries  are  discretized  using  sixteen  nodes,  and 
Dirichlet  conditions  are  specified  at  all  nodal  points.  The 
total  rate  of  heat  flow  across  the  outer  boundary  and 
either  of  the  inner  boundaries  is  zero;  i.e.,  the  Q's  in 
(6-1)  and  (6-2)  are  zero.  However,  the  *o  and  ^^  are  taken 
as   unknown,   and   their   values   are   computed   for   error 
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Exact  solution:     QJ    (z)=z 
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Figure  6-5.  Verification  example  for  the  CVBEM  in  a  tripl 
connected  domain. 
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comparison.   In   addition,   the   constant   of   integration   is 

chosen  by  taking  the  value  of  V  at  point  1  to  be  zero.  The 

values  for  4>    and  V  in  the  rectangular  region  are  accurately 

computed   by  the   CVBEM ;   see  Table   6-2.   In   addition,   the 

total  heat  flow  rates  across  the  boundaries  are  computed  to 

be  *o=4. 43x10"^^  and  ^^=2 . 35x10"!^ ,   and  these  values  are 

in   excellent   agreement   with   the   exact  values,   *^ I 

'    o I  exact" 

*Elexact=0-  The  4>  and  V  values  evaluated  with  the  CVBEM  are 
of  the  same  order  of  accuracy  as  in  the  corresponding 
problem  in  the  doubly  connected  domain.  This  example  thus 
adds  confidence  to  the  development  of  the  CVBEM  in  triply 
connected  domains. 


Extension  From  the  Triply  to  Multiply  Connected  Domain 
With  the  presentation  of  the  CVBEM  in  the  triply 
connected  domain  above,  it  is  easy  to  develop  the  CVBEM  in 
a  multiply  connected  domain  which  encloses  more  than  two 
holes.  For  the  multiply  connected  domain  shown  in  Figure 
6-5,  equations  (6-16)  and  (6-31)  are  revised  to  be 

2Ti[^(z^)]M  =  2;ri[^(z^)]g+i(*„A^_^^^^.Hj^  .)  ,  ^^^^r    (6-34) 

i  =  l   '    ' 

27ri[ci(zo)]M  =  2Ti[^(zo)]s+i(*oA-5^*g    -H.)  ,    Zo€Q  (6-35) 

i  =  l 

Here  the  index  I  in  the  summation  refers  to  the  number  of 
holes   in  excess  of  one  which  are  enclosed   by  the  outer 


93 
Table  6-2 


Results  of  the  verification  example  for  the 
CVBEM  in  a  triply  connected  domain. 


i:-' 


Boundary  Conditions  Imposed 


f>i- 


-    on 


and  r. 


Node 
Number 

^<f> 

^rP 

1 

O.OOOOE+00 

0.1002E-14 

2 

0.4441E-15 

0.4441E-15 

3 

0.4441E-15 

0.3553E-14 

4 

O.OOOOE+00 

0.4885E-14 

5 

0.4441E-15 

0.2220E-14 

6 

0.4441E-15 

0.2011E-14 

7 

0.2220E-15 

0.1998E-14 

8 

0.5551E-15 

0.2109E-14 

--; 

9 

0.4441E-15 

0.1787E-14 

10 

0.5551E-15 

0.1014E-14 

11 

0.1887E-14 

0.3109E-14 

12 

0.6661E-15 

0.4774E-14 

13 

0.4441E-15 

0.3997E-14 

1 

14 

0.1554E-14 

0.2220E-14 

15 

0.5551E-15 

0.8882E-15 

16 

0.8882E-15 

0.6661E-15 

Definition  of  th 

e  errors 

'    e ,   and  e  , 

above : 

«^  = 

I^CVBEM  - 

''^EXACT  1 

*^V'  = 

'^CVBEM  ~ 

^EXACT 1 
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Figure  6-6.  A  multiply  connected  domain  containing  foui 
hoi es . 
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boundary.  Since  the  nodal  points  along  the  cuts  A,  B,  and  C 
in  the  figure  are  positioned  in  analogy  to  those  along  the 
cut  (L+l)/l  in  Figure  6-4,  the  E  term  in  these  equations 
can  be  formulated  with  the  same  approach  that  is  developed 
earlier  for  the  triply  connected  domain.  Solution  of  the 
problems  in  the  multiply  connected  domain  can  thus  readily 
be  performed. 


m 


CHAPTER  VII 
CONCLUSIONS  AND  RECOMMENDATIONS 


Based  on  the  work  presented  in  this  study  the  following 
conclusions  are  drawn: 

1.  This  study  advances  the  current  state  of  development 
of  the  CVBEM  by  extending  the  method  to  the  solution  of 
potential  problems  in  multiply  connected  domains.  This  is 
accomplished  by  a  detailed  analysis  of  the  CVBEM  developed 
by  Hromadka  for  simply  connected  domains. 

2.   The   analysis   in   doubly   connected   domains   can   be 
performed  by  first  introducing  a  cut  in  the  domain.  Linear 
basis  functions  are  then  used  in  deriving  the  CVBEM  nodal 
equations  through  a  limiting  procedure,  taking  the  gap  to 
be  zero  and  moving  an  interior  point  to  the  boundary.  It  is 
found  that  the  stream  functions  along  the  cut  do  not  cancel 
out  but  must  be  accounted  for  by  an  additional  term  in  the 
nodal   equations.   For   the   complex   variable   methods,   the 
Cauchy-Riemann    conditions    must    be    used    to   generate 
additional  equations  when  Neumann  and  Robin  conditions  are 
specified  at  the  boundaries. 

3.  Taking  the  real  and  imaginary  parts  of  the  complex 
potential  yields  a  pair  of  equations  at  each  node,  one  for 
the  temperature  and  one  for  the  stream  function.  These 
equations  can  be  assembled  in  matrix  form  to  solve  for  the 
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unknown   temperatures   and   stream   functions   along   the 
boundary.   Depending  on   which   equations   are   kept   in   the 
matrix,  one  of  three  solution  methods  (implicit,  explicit, 
or  hybrid)  results.  However,  when  Robin  boundary  conditions 
are  specified,  both  the  temperature  and  boundary  condition 
equations  must  be  used.   Once  these  equations  are  solved, 
the  complex  potential  is  fully  determined  at  the  boundary. 
The  complex  potential   at  any   interior  point  can  then  be 
evaluated  by  using  the  computed  potential  at  the  boundary 
as  input  to  the  derived  equations  for  the  interior  points. 

4.  As  demonstrated  in  the  verification  examples,  the 
CVBEM  yields  accurate  results  with  a  relatively  coarse 
boundary  discretization  scheme.  The  CVBEM  converges  as  the 
discretization  is  refined.  In  a  comparison  test,  the  CVBEM 
is  found  to  be  slightly  less  accurate  than  the  RVBEM  when  a 
coarse  discretization  is  used  on  the  boundary;  however,  the 
two  methods  yield  similiar  results  when  the  number  of  nodes 
is  increased.  Comparison  of  the  three  methods  of  assembly 
leads  to  the  conclusion  that  the  hybrid  method  may  not  be 
warranted  when  Dirichlet  and  Neumann  conditions  are 
specified  at  the  boundary. 

5.  The  development  for  doubly  connected  domains  can  be 
extended  to  the  CVBEM  in  triply  and  multiply  connected 
domains.  Critical  analysis  of  the  mechanism  leading  to  the 
formation  of  double-valued  stream  functions  along  a  single 
cut  can  be  applied  to  the  formulation  of  the  stream 
functions   along  multiple   cuts.   Nodal-   and   interior-point 


e 
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equations  may  then  be  derived  as  an  extension  of  the  doubly 
connected  formulation.  It  can  also  be  shown  that  the 
derived  CVBEM  equations  for  multiply  connected  domains  are 
consistent  with  and  reducible  to  the  simply  connected 
equations  formulated  by  Hromadka. 

The  following  areas  are  suggested  for  future  research: 
1.    In   the   present   study,   only   potential   problems 
governed   by   the   Laplace   equation   are   solved.   A   natural 
extension  will  be  the  solution  of  problems  governed  by  th 
Poisson  equation  to  account  for  the  presence  of  sources  and 
sinks  in  the  investigated  domain.   In  these  cases,  the  us 
of  the  particular  solution  should  suffice  to  transform  th 
Poisson  equation  to  the  Laplace  equation.  Another  extension 
IS  related  to  the  temperature  dependent  conductivity  which 
leads  to  nonlinear  governing  equations.  For  such  problems, 
the   Kirchhoff   transformation   is   often   attempted,   yet 
constraints    are    found    in    the    transformed    boundary 
conditions.  These  problems  should  pose  a  real  challenge  to 
the  use  of  the  CVBEM. 

2.  Boundary  element  methods  can  account  for  large-scale 
inhomogeneities  within  the  medium.  Investigation  of  the 
resulting  CVBEM  matrix  equations  for  solving  multiply 
connected  domains  of  inhomogeneous  media  and  the  solution 
of  these  matrix  equations  should  reveal  the  limit  of  the 
scales  of  the  inhomogeneities  that  can  be  practically 
solved  with  the  CVBEM. 
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3.  Linear  basis  functions  were  used  to  derive  the  CVBEM 
nodal-  and  interior-point  equations.  Hromadka  has  outlined 
the  formulation  of  the  CVBEM  using  higher-order  basis 
functions.  A  study  should  be  attempted  in  the  future  to 
apply  higher-order  elements  to  solving  problems  in  simply 
and  multiply  connected  domains.  The  study  should  include  a 
comparison  of  the  accuracy  resulting  from  the  use  of 
higher-order  elements  to  the  use  of  a  refined  boundary 
disc ret  izat  ion . 

4.  Boundary  element  formulations  are  ideally  suited  to 
solving  design  and  optimization  problems,  and  the  recent 
literature  abounds  with  the  application  of  the  RVBEM  to  the 
solution  of  such  problems.  The  CVBEM  should  prove  useful  in 
the  solution  of  two-dimensional  design  problems.  A 
comparison  of  the  RVBEM  and  CVBEM  in  the  solution  of  such 
problems  should  also  be  attempted. 

5.  In  this  work,  a  limited  study  of  a  convective 
problem  in  the  annulus  was  used  to  compare  the  RVBEM  to  the 
CVBEM.  More  extensive  study  is  needed  to  compare  those 
methods.  Until  then,  the  relative  merits  of  these  two 
methods  cannot  be  firmly  established. 
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APPENDIX  A 

IMPLICIT  AND  EXPLICIT  CVBEM  FORTRAN 

PROGRAM  FOR  DOUBLY  CONNECTED  DOMAINS 


c** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c  . 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*********«*«*«***#*,*** 


***************1,1,i,1,1,i,ti, 


*************** *»*j,Jt, 


PROGRAM  NAME:  CVDBLY.FOR 


T"^L^^°^^*"  "2ES  THE  IMPLICIT  OR  EXPLICIT  METHOD  OF  SOLUTION 

conn^cteTdSinT^''''  '°''^'^'''  ^^^""'^^  "^^"°^  ^°«  ^°"^^'^ 

THE  INPUT   IS  READ  FROM  THE  FILE   "D-CAUCHY  DAT" 
THE  OUTPUT  IS  PRINTED  TO  THE  FILE  "D : CAUCHY ! ANS " 

INPUT  FORMAT:MNOD,NNOD,Q,ICHQ,ICHMAT,ICHLOAD  Rowl 

X ( 1 ) , Y ( 1 ) , KTYPE ( 1 ) , VALUE ( 1 ) , ANGLE ( 1 )  R0W2 

X ( 2 ) , Y ( 2 ) , KTYPE ( 2 ) , VALUE { 2 ) , ANGLE { 2 )  R0W3 


X(M),Y(M),KTYPE(M),VALUE(M),ANGLE(M) 
WHERE,    MNOD 

NNOD 


ROWM 


ICHQ 
ICHMAT 

ICHLOAD 


=NUMBER  OF  THE  LAST  NODE  ON  THE  OUTER 
BOUNDARY,  RIGHT  BELOW  THE  BRANCH  CUT 

=NUMBER  OF  THE  LAST  NODE  ON  THE  INNER 
BOUNDARY,  RIGHT  ABOVE  THE  BRANCH  CUT ■ 
ALSO, TOTAL  NUMBER  OF  NODES  ON  THE    ' 
BOUNDARY 

=1  VALUE  OF  BIG  PSI  IS  UNKNOWN 
=VALUE  OF  BIG  PSI  IS  KNOWN  AND  INPUT  AS 
SUCH 

=1  IF  Q  IS  UNKNOWN  AND  SET  TO  1 

=2  IF  Q  IS  KNOWN  AND  VALUE  IS  INPUT 

=0  IF  COEFFICIENT  MATRIX  AND  FORCING 

VECTOR  ARE  NOT  TO  BE  OUTPUT 
=1  IF  COEFFICIENT  MATRIX  AND  FORCING 

VECTOR  ARE  TO  BE  OUTPUT 

=0  IF  LOADING  PROCEDURE  IS  NOT  TO  BE 

ECHOED  TO  THE  SCREEN 
=1  IF  LOADING  PROCEDURE  IS  TO  BE  ECHOED 


X(I),Y(I)  =COORDINATES  OF  NODE  I 

KTYPE(I)   =1  IF  PHI  SPECIFIED  AT  NODE  I 
=2  IF  PSI  SPECIFIED  AT  NODE  I 


C 

c 

C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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C  =3  IF  q/k  SPECIFIED  AT  NODE  I  C 

C  =4  IF  h/k  AND  T-INFiNiri  SPECIFIED  AT  C 

C  NODE  I  C 

C  C 

C  RINl(I)    =PHI,0,0,h/k  C 

c  c 

C  RIN2(I)    =0,PSI,q/k,T-INFINITY  C 

c  c 

c  c 

C  ===>  THIS  PROGRAM  USES  THE  ROUTINE  "DSOLVE"  GAUSSIAN  C 

C  ELIMINATION  SIMULTANEOUS  EQUATION  SOLVER  WITH  C 

C  PARTIAL  PIVOTING,  EQUILIBRATION . ITERATIVE  C 

C  REFINEMENT  IS  DISABLED  DUE  TO  LIMITATIONS  OF  C 

C  AVAILABLE  HIGHER  THJ^N  REAL*8  PRECISION  C 

C  C 

C  ===>  MATRIX  STATISTICS  ARE  COMPUTED  AND  OUTPUT  IS  GIVEN  C 

C  FOR  THE  MATRIX  NORM  AND  CONDITIONING  NUMBER.  C 

C  THE  L-INFINITY  NORM  IS  USED.  C 

c  c 

C  ===>  SINGULAR  VALUE  DECOMPOSITION  IS  AVAILABLE  AND  CAN  BE    C 

C  USED  IF  K(A)  IS  LARGE.  ADDITIONALLY  EXACT  K(A)  IS       C 

C  PROVIDED  IF  SVD  IS  USED.  C 

C  C 

c  c 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN= 50) 
INTEGER  IV(NN),TDIM,ADIM,IER 

DIMENS I ON  AA ( NN, NN ) , BB ( NN ) , XX ( NN ) , T ( NN , NN ) , R { NN ) 
DIMENSION  CC(NN) ,W(NN),U(NN,NN),V(NN,NN) 
COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN ) , RIN2 ( NN ) , 
$P{NN,NN) ,S(NN) , ANGLE (NN) 

COMMON/CHKEQN/CHKPHI , CHKPSI 
COMMON/OUTOUT/ICHQ, ILOAD 
COMMON  PI,TWOPI 
DIMENSION  REX(NN) ,REY(NN) 
C 

C COMPUTE  PI 

C 

PI=DACOS(-1.D+0) 
TWOPI=2.D+0*PI 
C 

C INPUT/OUTPUT  DATA  FILES  AND  READ  IN  DATA 

C 

OPEN (8,FILE='D:CAUCHY. DAT' ) 
OPEN ( 9 , FILE= • D : CAUCHY . ANS ' ) 
C 

READ(8,*)  MNOD,NNOD,Q,ICHQ,ICHMAT, ILOAD 

WRITE(6,52)  MNOD,NNOD,Q,ICHQ,ICHMAT 

WR I TE ( 9 , 5  2 )  MNOD , NNOD , Q , I CHQ , I CHMAT 

52      FORMAT( IX, '====>  CVBEM  PROGRAM  FOR  DOUBLY  ' 

$, 'CONNECTED  DOMAINS  :  CVD . FOR ' , //, IX, 

$  'NUMBER  OF  LAST  OUTER  NODE        =', 

$13,/, IX, 'NUMBER  OF  LAST  INNER  NODE        =',I3,/,1X, 
$' [TOTAL  HEAT  FL0W1/[UNIT  DEPTH*k ] = ' , DIO . 4 , // , 
SIX,'  ICHQ=' , 13,//, IX, 'MATRIX' , 

$'  OUTPUT  CHOICE=' ,I3,2X, '==>  0-NO  OUTPUT   ;  1-MATRIX  OUTPUT'  /) 
DO  7  1=1, NNOD 
7      READ(8,*)  X(I),Y(I),KTYPE(I),RIN1(I),RIN2(I) 
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c 

C CALL  SUBROUTINE  ANGLE  TO  COMPUTE  THE  ANGLES  BETWEEN  THE  NODES 

C      THIS  IS  THE  ANGLE  USED  IN  COMPUTING  THE  TERM  OUTSIDE  THE 

C      SUMMATION  SIGN  IN  EQN .  4-22 

C 

CALL  CANGLE(MNOD,NNOD) 

C OUTPUT  PROBLEM  SET  UP  AND  GEOMETRY 

WRITE(6, *) 
WRITE(9,10) 
WRITE(6,10) 
10      FORMAT(20X, 'NODAL  GEOMETRY  AND  INPUT  VALUES',//, 
SIX,  •N0DE',7X,  'X(I) ',8X,  'Y(I)  ',7X,  'KTYPEd  )  •,3X, 
S'RINKI)  •,5X,  •RIN2(I)  '  ,5X,  'ANGLE  (I  )  '  , /,  2X,  '  NO .  '  ) 
DO  20  I=1,NN0D 
IF(I.EQ.MN0D+1)  WRITE(*,*) 
IF(I  .EQ.MNOD  +  1)  WRITEO,*) 

WRITE(6,8)  I,X(I),Y(I),KTYPE(I),RIN1(I ),RIN2(I), 
$ ANGLE (I )*180.D+0/PI 
20      WRITEO, 8)  I,X(I),Y(I),KTYPE(I),RIN1(I),RIN2CI), 

$ANGLE(I )*180.D+0/PI 
8       F0RMAT(1X,I3,5X,2(D12.5,1X),I5,4X,2(D12.5,1X),1X,F6.2) 
C 

C      PREPARE  GLOBAL  MATICES 
C 

C ZERO   ARRAYS 

C 

WRITE (6,*) 

WRITECe,*)  'ZEROING  ARRAYS' 
DO  5  1=1, NN 
5-      S(I)=O.D+0 
DO  6  1=1, NN 
DO  6  J=1,NN 
6       P(I,J)=O.D+0 
C 

C CALL  MATRIX  LOADING  PROGRAM  TO  ASSEMBLE  THE  CVBEM  EQUATIONS 

C 

CALL  LOADER(MNOD,NNOD,Q) 
C 

C GET  READY  TO  CALL  GAUSSIAN  ELIMINATION  SIMULTANEOUS 

C      EQUATION  SOLVER  OR  SINGULAR  DECOMPOSTION  SOLVER  IF  K(A)>SVDEPS 

C      FIRST  SET  PARAMETERS, 

C 

ADIM=NN 
TDIM=NN 
N=NN 
C 

C THEN  OUTPUT  FORCING  VECTOR  MATRIX  [P]  AND  FORCING  VECTOR  {S} 

C      IN  THE  IMPLICIT  FORMULATION: 

C 

C  [P]{PHI,PSI}={S) 

C 

C IF  THE  INPUT  CHOICE  ICHMAT=0  THEN  SKIP  MATRIX  EQNS  OUTPUT 

C 

IMAX=NN 

IF(ICHMAT.EQ.O)  THEN 
WRITE(*,250) 
250     FORMATdX,/,  '  MATRIX  EQUATION  OUTPUT  SUPRESSED  BY  ICHMAT=0',/) 
GO  TO  1555 
ELSE 
C IF  THE  INPUT  CHOICE  ICHMAT  =  1  THEN  OUTPUT  MATRIX  RQNS  VIA  MATOUT 
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DO  251  1=1, NN 
BB(I )=S(I  ) 
DO  251  J=1,NN 
251     AA(I,J)=P(I,J) 

CALL  MATOUT(AA,BB,IMAX) 
END  IF 
C 


C "''''''    '''^^'^^  ^"^  *"^»"  TO  COMPUTE  THE  CONDITIONING  NUMBER 


C 


1555    DO  1500  I=1,IMAX 

DO  1500  J=1,IMAX 
1500    AA(I,J)=P(I,J) 

DTNRM=0.D+0 

DETM=O.D+0 

WRITE(*,*)  '  CALLING  INVDET' 

CALL  INVDET (AA,DTNRM,DETM) 


C COMPUTE  L-INFINITY  NORMS  OF  THE  MATRIX  (P]  AND  ITS  INVERSE 


^  (RETURNED  BY  INVDET  AND  STORED  AS  [ AA J )  AND  COMPUTE 


C        THE  CONDITIONING  NUMBER  OF  THE  MATRIX  [P]  AS  K (P ) = | p | * | p"^' 

RNORMA=0.D+0 

RNRMAI=0.D+O 

DO  2150  I=1,IMAX 

STOl=0.D+0 

STO2=0.D+0 

DO  2100  J=1,IMAX 

ST01=ST01+DABS(AA(I, J) ) 
2100    ST02=ST02+DABS(P(I,J) ) 

RNRMAI =DMAX1 ( RNRMAI , STOl ) 
2150    RN0RMA=DMAX1(RN0RMA,ST02) 

WRITE(*, 2155 )RN0RMA, RNRMAI 

WRITE (9, 2155 )RN0RMA, RNRMAI 
2155    FORMATdX,//, IX,  -MATRIX  STATISTICS:'  /  IX 

I'NORM'uri^Dio:;,'''''"''''""" '''  -'''^^^'-^./.^^r-i'.nx, 

COND=RNORMA*RNRMAI 
WRITE(*,2200)  DTNRM,COND 
WRITE(9,2200)  DTNRM,COND 

^     SIX,  K(A)     =', DIO. 4, 2X, 'L-INFINITY  NORM  USED  TO  CoApUTE  K(A)V) 

C        NOW  BY  DLUD  SINCE  ITERATI VE'REF^SNi^SED'oF?' ""'  """'"' 

DO  2300  I=1,IMAX 
STO=0.D+0 
DO  2350  J=1,IMAX 
2350    ST0=ST0+AA(I, J)*S( J) 

R(I )=ST0 
2300    CONTINUE 
C 

I ^"^'^'^  CONDITIONING  NUMBER  :   K(A)  <  =  1.0D  +  12  SKIP  SVD 

C  K{A)  >  l.OD+12  CALL  SVD 
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WRITE(*,3000) 
WRITE(9,3000) 
3000    FORMAT ( IX, //, IX, 'CHECK  CONDITIONING  NUMBER :',/, 25X 
$'K(A)<=1.0D+12   SKIP  SVD  ALGORITHM', /,25X, 
$'K(A)>  l.OD+12   CALL  SVD  ALGORITHM',//) 
SVDEPS=1.0D+12 
IF(COND.LE.SVDEPS)  THEN 
WRITE(*,*)  'SKIPPING  SVD' 

'  DO  YOU  WANT  TO  OVERRIDE  AND  STILL  USE  SVD?' 


WRITE(*,*) 

WRITEC*,*) 

WRITE(*,*)  '  ENTER 

WRITE(*,*)  ' 

READ(*,*)  INPUT 

IF ( INPUT. EQ.O)  GO  TO  4  0  01 

WRITE(*,*) 

WRITEO,*)  'SKIPPED  SVD' 

ICHALG=1 

GO  TO  4000 

ENDIF 


0-TO  OVERRIDE  AND  CALL  SVD' 
1-TO  PROCEED  W/0  SVD' 


C CALLING  SINGULAR  VALUE  DECOMPOSITION  SOLVER 

C 
C 

C GIVE  OVERRIDE  CHOICE 

C 


WRITEC *,*) 

WRITEC*,*) 

WRITEC*,*) 

WRITEC*,*) 

WRITEC*,*) 

WRITEC*,*)  • 

READC*,*)  INPUT 

IF C INPUT. EQ.O)  GO  TO  4000 

WRITEC*, *) 


SVDEPS  EXCEEDED  AND  CALLING  SVD' 

DO  YOU  WANT  TO  OVERRIDE  AND  STILL  USE  GE? ' 


ENTER 


0-TO  OVERRIDE  AND  CALL  GE ' 
1-TO  PROCEED  W/  SVD' 


C CALLING  SVD 

C 
4001    WRITEC*,*)  '  CALLING  SVD  SOLVER' 

CALL  SVDCP,S,XX,NN,CC,U,V,W) 

GO  TO  4500 


.CALL  GAUSSIAN  ELIMINATION  SIMULTANEOUS  EQUATION  SOLVER  :  DSOLVE 

TO  BE  SENT  TO  SOLVER 


C 

c 

c. 

c 

C SET  FORCING  VECTOR  AND  MATRIX 

C 

4000    DO  555  11=1, N 
BBCII)=SCII) 
DO  555  IJ=1,N 
555     AACII,IJ)=PCII,IJ) 
WRITEC6,*) 

WRITEC6,*)  'CALLING  GAUSSIAN  ELIMINATION  SIM.EQN.  SOLVER' 
CALL  DSOLVE CAA,BB,N,ADIM,TDIM,T, IV, XX, R,IER) 

C COMPUTE  &    PRINT  RESIDUAL  VECTOR 

C 
4500    WRITEC6,656) 
WRITEC9,656) 
656     FORMATCIX,//, IX, •====>  RESIDUAL  AND  SOLUTION  VECTORS'  // 

$18X,'CHK  SOLN  W/',2X,'S0LN  FROM  DLUD ',/, 3X, ' I ', 3X, ' RESIDUAL ' , 


t-'- 
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$6X,  •INVDET',4X,  "SIM. EQN  SOLVER', /,2X'---'  2X  • '  sy 

DO  658  1=1, N 

RES=S(I) 

DO  657  J=1,N 

657  RES=RES-P(I, J)*XX{ J) 
WRITE(9,659)  I , RES , R ( I ) , XX ( I ) 

658  WRITE(6,659)  I ,  RES,R  ( I  ) ,  XX  ( I  )  -.■■; 

659  FORMATdX,  •  I  ',I3,3C  I  ',D10.4,1X,  •  I  ■  )) 

C SET  {S}  EQUAL  TO  SOLUTION  ' 

DO  670  1=1, N  '-''' 

670     S(I)=XX(I) 
C  '  .-  ; 

I PERfSrMeS"'"''''"'  ''°°''''  ''°'''''  ^^^""^^    DEPENDING  ON  HOW  LOADING  WAS 

C 

DO  7010  I=1,NN0D 

IF(KTYPE(I ) .EQ.2)  GO  TO  7015 

REXd  )=RIN1(I  ) 

REY(I)=S(I)  .,  '  , 

GO  TO  7010 
7015    REX(I)=S(I) 

REY(I )=RIN2(I ) 
7010    CONTINUE 

IF(ICHQ.EQ.l)  THEN 

Q=S(1) 

REY(1)=0 

END  IF 
C 

C OUTPUT  RESULTS 

C 

WRITE(6,*) 

WRITE(6,*)  'OUTPUT  RESULTS' 

CALL  OUTPUT(MNOD,NNOD,REX,REY,Q) 

C 

^ COMPUTE  THE  RELATIVE  ERROR  e(J)  AT  THE  BOUNDARY  NODES 

WRITE{6,*) 

WRITE(6,*)  'COMPUTE  RELATIVE  ERROR' 
CALL  HOMI (REX,REY,MNOD,NN0D,Q) 
C  - 

^ f^IVE  OPTION  OF  WRITING  DATA  FILE  FOR  POST  PROCESSING 

WRITE{*,800) 

800     F0RMAT(1X,//,1X,'D0  YOU  WANT  TO  SAVE  NODAL  VALUES  AND'  ■ 

$'  LOCATIONS  FOR  POSTPROCESSING  ?',/, IX,  ' ENTER  CHOICE-'   ' 
$•  1-TO  SAVE',/,15X, '0-NOT  TO  SAVE') 

READ(*,*)  ICH  ;■'. 

IF(ICH.EQ.O)  STOP  «-; 

CLOSE  (9)  ^-V 

CLOSE  (  8  )  ',.  -^ 

OPEN  (  9  ,  FILE=  '  D  :  POST  .  DAT  '  )  .^iv^ 

WRITE(9,*)  MNOD,NNOD,Q  .  . {V  ; 

DO  810  I  =  1,NN  "■'-•'■-^^; 

810     WRITE(9,820)  X ( I ) , Y ( I ) , REX ( I ) , REY ( I )  'H-? 

820     F0RMAT(4(1X,D15.9)  )  -  -,» 

STOP  '.! 


Ill 


END 

C======================  CVBEM  SUPPORT  SUBROUTINES  ======================r 

C 

C***************************************i,**1,i,****i,tticti,i:i,t**1,*i,***i,i,*i,i,icr 

C  C 

C  THIS  SUBROUTINE  LOADS  THE  CVBEM  EQUATIONS  IN  THE  GLOBAL  MATRIX   C 

C  IT  ACESSES  THE  IMLICIT  AND  EXPLICIT  LOADERS  SUBROUTINES  C 

C  IMP  AND  EXP  SEE  TABLE  4-4  IN  DISSERTATION  C 

C  GLOBAL  MATRIX  EQUATIONS  [P1{XX}={S}  r 

c  c 

C**********************ii********************-ki,i,i,i,tt  *******  **i,i,i,i,i,ti,ti,**i,r 

c  C 

SUBROUTINE  LOADER ( MNOD, NNOD, Q ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER (NN= 50) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl (NN ) , RIN2 ( NN ) , 
$P ( NN , NN ) , S ( NN ) , ANGLE ( NN ) 

COMMON/CHKEQN/CHKPHI , CHKPS I 

COMMON/OUTOUT/ICHQ, ILOAD 

COMMON  PI,TWOPI 
C 

C*««***«**********«  PERFORM  MATRIX  LOADING  ****************«*****«***, «r 
C  ^ 

C LOAD  PHI  OR  PSI  EQUATION  FOR  EACH  NODE  "J"  WHERE  J  =  l     NNOD 

C      DEPENDING  ON  THE  VALUE  OF  KTYPE(J):  '*'" 

C 

C        SET  ICHEQN=1   ==>  LOAD  IMPLICIT  EQUATION 

C        SET  ICHEQN=2   ==>  LOAD  EXPLICIT  EQUATION 

C        SET  ICHEQN=3   ==>  LOAD  NEUMANN  B.C.  EQUATION 

C        SET  ICHEQN=4   ==>  LOAD  ROBIN  B.C.  EQUATION 


C. 
C 


WRITE(6,*) 

WRITE(6,*)  'LOADING  IMPLICIT  EQUATIONS  IN  GLOBAL  MATRIX' 

DO  1000  J=1,NN0D 
C 

C...LOAD  IN  DIAGONAL  CONTRIBUTION  AT  "J"  FIRST  INTO  [PI  AND  {S} 
C      I.E.  THE  TERMS  OUTSIDE  THE  SUMMATION  INVOLVING  THE  IMMEDIATE 
C      NEIGHBOR  ELEMENTS  :j-1,J]  AND  (J,Jtl] 
C      TAKE  INTO  ACCOUNT  DOUBLY  CONNECTED  GEOMETRY 


C 


C 
C 


A=O.D+0 

B=O.D+0 

C=O.D+0 

0=0. D+0 

CHKPHI=O.D+0 

CHKPSI=G.D+0 


WRITE(*,*) 

WRITE(*,*)  'LOADING  NODAL  EQUATION  AT  NODE=',J 


C 

C... ASSIGN  ICHEQN  FOR  LOADING  OF  NODAL  EQUATIONS 

C 

IF( J.EQ.MNOD+1)  THEN 

ICHEQN=2 

ELSE 


-f~. 
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ICHEQN=1 
END  IF 


C 

C...LOAD  NEUMANN  OR  ROBIN  B.C.  CONDITIONS  AND  SKIP  CVBEM  LOADING  LOOP 

C    IF  ICHEQN=3  OR  4 

C 

I  IF(ICHEQN.EQ.3)  CALL  NEUMANN(J) 

GO  TO  505 

IF(ICHEQN.EQ.4)  CALL  ROBIN(J) 

GO  TO  505 

?---?r?HE  ScS1St'a??he?a=S''''"'"  "°''  ^""^^''^"^  ACCOUNTING 
C 

I=J-1 

K=J  +  1 

IF(J.EQ.l)      I=MNOD 

IF(J.EQ.MNOD)   K=l 

IF(J.EQ.MN0D+1)I=NN0D 

IF(J.EQ.NNOD)   K=MN0D+1 


C 
C 

c 

C... COMPUTE  ANGLES  AND  COMPLEX  ALGEBRA 
C 


IF(ILOAD.EQ.l)  WRITE(*,*)  •    CALLING  DIAGONAL  LOADER- 


C 


CALL  CAUCH1(MN0D,NN0D,J,I,K,A,B,C,D) 


C...L0AD  DIAGONAL  TERM  INTO  THE  MATRIX  EQUATION 
C 


IF(ICHEQN.EQ.l)  CALL  IMP (MNOD, NNOD, J, I , K , A  C  D) 
IF(ICHEQN.EQ.2)  CALL  EXP ( MNOD, NNOD, J , I , K, A, c' D) 

LOAD  IN  THE  REMAINING  COUNTOUR  ELEMENT  CONTRIBUTIONS  I  F   -I'TP 
l^T.    "L°^LrLfr^V2L^^.^Li«^°^^^^"^  -^-H-N-  .AMMMA^mI'n) 


tr^^i^^in  THE  CONTRIBUTIONS  OF  THE  DIRECT  NEIGHBORS , ELEMENTS 

(I,J1  AND  (J,K1,  THESE  HAVE  ALREADY  BEEN  LOADED  PRIOR  TO  THIS  LOOP, 


C 

C. 
C 

C      WHERE  M=n  AND  N=n+1  IN  THE  NOTES 
C 

C      ACCOUNT  FOR  DOUBLY  CONNECTED  GEOMETERY 
C 

c 
c 
c 

DO  500  N=1,NN0D 
C... LOGIC  TO  COMPUTE  N+1  ACCOUNTING  FOR  BRANCH  CUT  AND  CIRCUIT  AROUNn 
C      THE  DOUBBLY  CONNECTED  DOMAIN  <-IRCUIT  AROUND 

C 

NP1=N+1 

IF(N.EQ.MNOD)  NP1=1 

IF(N.EQ.NNOD)  NP1=MN0D+1 
C...SKIP  DIRECT  NEIGHBORING  ELEMENTS 

IF(N.EQ.J.0R.NP1.EQ. J)  GO  TO  500 
C... COMPUTE  COMPLEX  ALGEBRA 

IF{ILOAD.EQ.1)WRITE(*,501)  N,NP1 
501     FORMATOX,  -CALLING  LOADER  FOR  GAMMAf',12  '  •  12  -1-^ 

CALL  CAUCHl(MNOD,NNOD,J,N,NPl,A,B,C,D)    '  '  ' 
C...LOAD  ELEMENT  CONTRIBUTION  INTO  MATRIX  EQATION 

IF(ICHEQN.EQ.l)  CALL  IMP (MNOD, NNOD, J , N. NPl  A  C  D) 

500    coiSSf-'^^'"  ^*''''  ^^P'""°'^'""OD'J'^'^^'Pl:A:c:Di 
c 
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c. 

c 

c 


.GET  READY  TO  COMPUTE  CONTRIBUTIONS  DUES  TO  SOURCES/SINKS 


STPHI  S  STPSI 


505 


C 

c. 

c 

c 

c 

c. 

c 

c 

c. . 

c 


c 

c. 

c 

c. 

c. 


c. 


.SEE 


CONTINUE 
XO=X( J) 
YO=Y(J) 
STPHI=0 
STPSI=0, 

IF  Q  IS 

IFCICHQ. 


D  +  0 
D  +  0 


INPUT  AS  ZERO  ;  IF  SO  THEN  SKIP  SOURCE 


TERM  COMPUTATION 


.O.D+0)  GO  TO  1001 


.NE.l.AND.Q.EQ. 
.COMPUTE  SOURCE  TERM  CONTRIBUTIONS 

CALL  CAUCHSC J, MNOD,NNOD,Q, STPHI, STPSI, XO,YO) 
.  .Q  IS  UNKNOWN 


IF(ICHQ.EQ.l)  THEN 
..CHECK  WHETHER  IMPLICIT  OR  EXPLICIT 

IFdCHEQN.EQ.l)  THEN 
..IMPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J).EQ.2)  P(J,1)=STPHI 

IF(KTYPE(J) .EQ.l)  P(J,1)=STPSI 

ELSE 
.EXPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  P(J,1)=STPS1 

IF(KTYPE{J).EQ.l)  P(J,1)=STPHI 

END  IF 

ELSE 

.Q  IS  GIVEN  ON  INPUT 


EQUATION  IS  LOADED 


.CHECK  WHETHER  IMPLICIT  OR  EXPLICIT 

IFdCHEQN.EQ.l)  THEN 
.IMPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  S ( J ) =S ( J ) -STPHI 

IF(KTYPE(J).EQ.l)  S ( J ) =S ( J ) -STPSI 

ELSE 

.EXPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J).EQ.2)  S ( J ) =S ( J ) -STPSI 
IF(KTYPE(J).EQ.l)  S  (  J  )  =S ( J ) -STPHI 
END  IF 
END  IF 


EQUATION  IS  LOADED 


'CHKPSI=' 
'CHKPHI=' 


'CHKPHI=',CHKPHI 
•CHKPSI=',CHKPSI 


1001    IFdCHEQN.EQ.l)  THEN 

IF(KTYPE(J) .EQ.l)  WRITE(*,*) 
IF(KTYPE(J).EQ.2)  WRITE(*  *) 
ELSE 

IF(KTYPE(J).EQ.l)  WRITE(*,*) 
IF(KTYPE(J).EQ.2)  WRITE(*  *) 
END  IF 

IF(KTYPE(J).EQ.3.0R.KTYPE(J).EQ.4)  THEN 
CHK=O.D+0 

DO  600  JJ=1,NN 
600     CHK=CHK+P(J,JJ) 

WRITE(*,*)  'CHKBC=',CHK 

END  IF 
1000    CONTINUE 


CHKPSI 
CHKPHI 


.:*i«^ 
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c 

C... FINISHED  MATRIX  LOADING 
C 

RETURN 
END 
C 

c  c 

C        ======>  IMPLICIT  LOADER  5 

c  c 

C  THIS  SUBROUTINE  LOADS  THE  ELEMENT  CONTRIBUTIONS  r 

C  INTO  THE  GLOBAL  MATRIX  EQUATION.  HERE  THE  PORTION  OF  r 

C  THE  EQUATION  @  THE  NODE  "J"  IS  LOADED  ^ 

C  THE  ELEMENT  [M,N1  IS  LOADED  WHERE  N=M+1  C 

C  IF  M=J-1  OR  N=J+1  THEN  THE  ELEMENT  IS  THE  LOGARITHMIC  C 

SUBROUTINE  IMP (MNOD,NNOD, J ,M, N, A, C, D)  ^ 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN= 50) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN) 
$P(NN,NN),S(NN),ANGLE(NN)  i,Ki«^lNN), 

COMMON/OUTOUT/ICHQ, ILOAD 
COMMON/CHKEQN/CHKPHI ,CHKPSI 
COMMON  PI,TWOPI 
C 

C  THIS  SUBROUTINE  ASSEMBLES  THE  ELEMENTS  IN  THE  GLOBAL  MATRIX 

C  "P"  WITH  VECTORS  OF  CONSTANTS,  "S".  THAT  IS  IT  LOADS   LINE 

C  BY  LINE,  THE  IMPLICIT  FORMULATION  OF  EQN.  4-22  fSr  DOUBLY 

C  CONNECTED  DOMAINS.  FOR  EACH  NODE  "J"  IT  LOADS  IN    °°^^^^ 

C  THE  IMAGNARY  PART  OF  THE  EQUATION  FOR  NODES 

C  WITH  KTYPE=1  (eqn.  18  in  the  notes)  AND  THE  REAL  PAR"  "-" 

C  NODES  WITH  KTYPE  =  2  (eq.  19  in  the  notes)  "^'^ 

TWOPI=2.D+0*PI 

c 

jpi=j+i 

JM1=J-1 

IF(J.EQ.l)      JM1=MN0D 

IF( J.EQ.MNOD)   JP1=1 

IF(J.EQ.MN0D+1)JM1=NN0D 

IF(J.EQ.NNOD)   JP1=MN0D+1 

c""''°!;eigSbSrs''s?°"J"''  ''°''"'^ ''''°  ''"'^''''  ''■  ^"^^  ^^^  ™^  ^^^^^T 


IF(M.EQ.JM1.0R.N.EQ. JPl)  GO  TO  100 
C 

C... LOADING  A  SUMMATION  TERM  INTO  (P]  AND  {S} 

C      COMPUTE  THE  CONSTANTS  USED  IN  THE  SUMMATION  TERM 


IF ( ILOAD. EQ.l)  WRITE (*,1000)J,M,N 
1000  FORMATC       LOADING  SUMMATION  TERM[J,M,N]  ■  3(1X  13)1 
C1=(X(J)-X(M))*C-(Y(J)-Y(M))*D  ,JliX,I3)) 

C2=(X(J)-X(M))*D+(Y(J)-Y(M))*C 
C3=(X(J)-X(N))*C-(Y(J)-Y(N) )*D 


„™] 
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C4=(X( J)-X(N) )*D+(Y(J)-Y(N) )*C 

G1=-C3/TW0PI 

G2=C1/TW0PI 

G3=-C4/TWOPI 

G4=C2/TWOPI 
C 

C... ASSIGN  COEFFICIENTS  TO  THE  VARIABLES  IN  THE  SUMMATION  TERM. 
C      FIRST  CHECK  THE  TYPE  OF  UNKNOWN  AT  THE  DIAGONAL  :  PHI  OR  PSI  GIVEN 
C 

IF(KTYPE( J) .EQ.l)  GO  TO  5 
C 

C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STATE  VARIABLE  "PHI " , KTYPE=2 
C      USE  EQUATION  19  IN  THE  NOTES,  IMAGINARY  PART  OF  4-22 

CC1=G1 

CC2=G2 

CC3=G3 

CC4=G4 

GO  TO  8 
C 

C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STREAM  FUNCTION  "PSI " , KTYPE=1 
C      USE  EQUATION  18  IN  THE  NOTES,  REAL  PART  OF  4-22 
5     CC1=G3 

CC2=G4 

CC3=-G1 

CC4=-G2 
C 

C...LOAD  THE  SUMMATION  TERM  CONTRIBUTION  INTO  tP)  AND  {S)  FOR 
C    ELEMENT  [M,N)  , WHERE  M  AND  N  NOT  EQUAL  TO  J  AND  N=M+1 
C    ACCORDING  TO  A  POSITIVE  COUNTERCLOCKWISE  NUMBERING  CONVENTION 
C 

C    CHECK  WHAT  HARMONIC, PHI  OR  PSI, IS  SPECIFIED  AT  NODES  "M"  AND  "N" 
C 

C... CHECK  NODE  "M"  FIRST 
C 

8     IF  (KTYPE(M) .EQ.2)  GO  TO  10 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "M",KTYPE=1 

S(J)=S( J)-CC3*RIN1(M) 

P(J,M)=P( J,M)+CC1 

IF(KTYPE{ J) .EQ.l)  THEN 

CHKPSI=CHKPSI+CC1+CC3 

ELSE 

CHKPHI =CHKPHI +CC1+CC3 

END  IF 

GO  TO  50 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "M",KTYPE=2 
10    S(J)=S(J)-CC1*RIN2(M) 

P(J,M)=P(J,M)+CC3 

IF(KTYPE(J) .EQ.l)  THEN 

CHKPSI=CHKPSI+CC3+CC1 

ELSE 

CHKPHI =CHKPHI+CC3+CC1 

END  IF 
C... CHECK  NODE  "N"  NEXT 

50    IF(KTYPE(N) .EQ.2)  GO  TO  60 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "N",KTYPE=1 

S{J)=S(J)-CC4*RIN1(N) 

P(J,N)=P( J,N)+CC2 

IF(KTYPE( J) .EQ.l)  THEN 

CHKPSI=CHKPSI+CC2+CC4 

ELSE 


'iu-'   ' ,.;  I 


>    !  i- 
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CHKPHI=CHKPHI+CC2+CC4 

END  IF 

GO  TO  200 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "N",KTyPE=2 
60    S{J)=S(J)-CC2*RIN2(N) 

P(J,N)=P(J,N)+CC4 

IF(KTYPE(J) .EQ.l)  THEN 

CHKPSI=CHKPSI+CC4+CC2 

ELSE 

CHKPHI=CHKPHI+CC4+CC2 

END  IF 

GO  TO  200 
C 

c  

C        BOUNDARY  ELEMENT  BEING  LOADED  CONTAINS 

C        NODE  "J"  I.E.  LOADING  DIAGONAL  CONTRIBUTIONS 

C 

c  

C... CHECK  TYPE  OF  DIAGONAL  UNKNOWN 
C 
C 
100   AZ=A/TWOPI 

BZ=(TWOPI-ANGLE(J) )/TWOPI 
C 
C 

IF(ILOAD.EQ.l)  WRITE(*,250)J,JM1,J,JP1 
250   FORMAT('       LOADING  DIAGONAL  TERM  FOR  NODE'  13 
$'   GAMMA[I,J,K) •,3(1X,I3) ) 


C 
C 

IF(KTYPE{J) .EQ.2)  GO  TO  110 
C... STATE  VARIABLE  "PHI"  SPECIFIED  AT  NODE  "J",KTYPE=1 

P(J, J)=BZ-l.D+0 
S(J)=S(J)+(AZ*RIN1(J) ) 
CHKPSI=CHKPSI-AZ+BZ 
GO  TO  200 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  AT  NODE  "J",KTYPE=2 

110   P(J, J)=BZ-l.D+0 

S(J)=S(J)-(AZ*RIN2(J)  ) 
CHKPHI =CHKPHI +AZ+BZ 
C... FINISHED  LOADING  THE  ELEMENT 
C 
200   CONTINUE 
RETURN 
END 

^  c 

C        ===>  EXPLICIT  LOADER  ^ 

""  C 

C  THIS  SUBROUTINE  LOADS  THE  ELEMENT  CONTRIBUTIONS  C 

C  INTO  THE  GLOBAL  MATRIX  EQUATION.  HERE  THE  PORTION  OF  c 

C  THE  EQUATION  @  THE  NODE  "J"  IS  LOADED.  r 

C  THE  ELEMENT  [M,N1  IS  LOADED  WHERE  N=M+1  C 

C  IF  M=J-1  OR  N=J+1  THEN  THE  ELEMENT  IS  THE  LOGARITHMIC  c 

C  ^ 

C 
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SUBROUTINE  EXP ( MNOD, NNOD, J, M,N, A, C, D ) 
IMPLICIT  DOUBLE  PRECISIOfI  (A-H,0-Z) 
PARAMETER(NN=50) 

C0MMON/BLK/X(NN),Y(NN),KTYPE(NN),RINl(NN),RIN2(NN) 
$P ( NN , NN ), S ( NN ), ANGLE { NN ) 

COMMON/OUTOUT/ICHQ, ILOAD 
COMMON/CHKEQN/CHKPHI , CHKPS I 
COMMON  PI,TWOPI 
C 

C  THIS  SUBROUTINE  ASSEMBLES  THE  ELEMENTS  IN  THE  GLOBAL  MATRIX 

C  »P»  WITH  VECTORS  OF  CONSTANTS,  "S".    THAT  IS  IT  LOADS,  LINE 

C  BY  LINE,  THE  IMPLICIT  FORMULATION  OF  EQN .  4-22  FOR  DOUBLY 

C  CONNECTED  DOMAINS.  FOR  EACH  NODE  "J"  IT  LOADS  IN 

C  THE  IMAGNARY  PART  OF  THE  EQUATION  FOR  NODES 

C  WITH  KTYPE=1  (eqn.  18  In  the  notes)  AND  THE  REAL  PART  FOR 

C  NODES  WITH  KTYPE=2  (eq.  19  in  the  not^s > 


C 

TWOPI=2.D+0*PI 
C...DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 
C      FOR  THE  BRANCH  CUT  AT  THETA=0 
C 

JP1=J+1 

JM1=J-1 

IF(J.EQ.l)      JM1=MN0D 

IF(J.EQ.MNOD)   JP1=1 

IF(J.EQ.MN0D+1) JM1=NN0D 

IF( J.EQ.NNOD)   JP1=MN0D+1 
C... COMPUTE  NEIGHBORING  POINTS  AND  CHECK  IF  THEY  ARE  THE  DIRECT 
C    NEIGHBORS  OF  "J"  uiKr.i-i 

C 


NEIGHBORS  OF  "J" 

IF(M.EQ.JMl.OR.N.EQ.JPl)  GO  TO  100 


C 

C... LOADING  A  SUMMATION  TERM  INTO  [P]  AND  {S) 

C    COMPUTE  THE  CONSTANTS  USED  IN  THE  SUMMATION  TERM 

C 

IF(ILOAD.EQ.l)    WRITE(*,1000)J,M,N 
1000    FORMATC  LOADING    SUMMATION    TERM(J,M,N]     •     3(1X    I3n 

C1=(X(J)-X(M))*C-(Y(J)-Y(M))*D 
C2=(X(J)-X(M) )*D+(Y(J)-Y(M) )*C 
C3=(X(J)-X(N) )*C-(Y(J)-Y(N) )*D 
C4=(X(J)-X(N))*D+(Y(J)-Y(N))*C 
G1=-C3/TW0PI 
G2=C1/TW0PI 
G3=-C4/TWOPI 
G4=C2/TWOPI 

C... ASSIGN  COEFFICIENTS  TO  THE  VARIABLES  IN  THE  SUMMATION  TERM 

C      FIRST  CHECK  THE  TYPE  OF  UNKNOWN  AT  THE  DIAGONAL  :  PHI  Or'pSI  GIVEN 

IF(KTYPE(J) .EQ.l)  GO  TO  5 
C 

C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STATE  VARIABLE  "PHI"  KTYPE-2 
C      USE  EQUATION  PSI  ,Mif£--i: 

CC1=G3  ■ 

CC2=G4 

CC3=-G1 

CC4=-G2 

GO  TO  8 


^. 
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C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STREAM  FUNCTION  "PSI " , KTYPE=1 
C      USE  PHI  EQUATION 
5     CC1=G1 

CC2=G2 

CC3=G3 

CC4=G4 
C 

C...LOAD  THE  SUMMATION  TERM  CONTRIBUTION  INTO  tP]  AND  [S]    FOR 
C      ELEMENT  [M,N)  , WHERE  M  AND  N  NOT  EQUAL  TO  J  AND  N=M+1 
C      ACCORDING  TO  A  POSITIVE  COUNTERCLOCKWISE  NUMBERING  CONVENTION 
C 

C      CHECK  WHAT  HARMONIC, PHI  OR  PSI, IS  SPECIFIED  AT  NODES  "M"  AND  "N" 
C 

C... CHECK  NODE  "M"  FIRST 
C 

8     IF  (KTYPE(M) .EQ.2)  GO  TO  10 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "M",KTYPE=1 

S{J)=S(J)-CC3*RIN1(M) 

P( J,M)=P( J,M)+CC1 

IF(KTYPE( J)  .EQ.2)  THEN 

CHKPSI=CHKPSI+CC1+CC3 

ELSE 

CHKPHI=CHKPHI +CC1+CC3 

END  IF 

GO  TO  50 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "M",KTYPE=2 
10    S(J)=S(J)-CC1*RIN2(M) 

P(J,M)=P( J,M)+CC3 

IF(KTYPE(J) .EQ.2)  THEN 

CHKPSI=CHKPSI+CC3+CC1 

ELSE 

CHKPHI =CHKPHI +CC3+CC1 

END  IF 
C... CHECK  NODE  "N"  NEXT 

50    IF(KTYPE(N) .EQ.2)  GO  TO  60 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "N",KTYPE=1 

S( J)=S( J)-CC4*RIN1(N) 

P< J,N)=P( J,N)+CC2 

IF(KTYPE( J) .EQ.2)  THEN 

CHKPSI=CHKPSI+CC2tCC4 

ELSE 

CHKPHI =CHKPHI+CC2+CC4 

END  IF 

GO  TO  200 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "N",KTYPE=2 
60    S( J)=S( J)-CC2*RIN2(N) 

P(J,N)=P(J,N)+CC4 

IF(KTYPE( J) .EQ.2)  THEN 

CHKPSI=CHKPSI+CC4+CC2 

ELSE 

CHKPHI =CHKPHI+CC4+CC2 

END  IF 

GO  TO  200 
C 

c 

C        BOUNDARY  ELEMENT  BEING  LOADED  CONTAINS 

C        NODE  "J"  I.E.  LOADING  DIAGONAL  CONTRIBUTIONS 

C 

C 

C CHECK  TYPE  OF  DIAGONAL  UNKNOWN 


rt:->- 
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c 
c 

100   AZ=A/TWOPI 

BZ={TWOPI-ANGLE( J) )/TWOPI 


C 

c 

c 

c. 
c 


c 

c. 

c 


9^n   ^!^PL0AD.EQ.1)  WRITE  {  *,  250  )  J,  JMl,  J,  JPl 
250   FORMATC       LOADING  DIAGONAL  TERM  FOR  NODE'  13 
$•   GAMMA(I,J,K]',3(1X,I3))  '"' 

IF(KTYPE(J).EQ.l)  GO  TO  110 
•STATE  VARIABLE  "PSI"  SPECIFIED  AT  NODE  "J",KTYPE=2 

P(J,J)=-AZ 

S(J)=S(J)+(1-BZ)*RIN2(J) 
CHKPSI=CHKPSI-AZ+BZ 
GO    TO    200 

•STREAM   FUNCTION    "PHI"    SPECIFIED    AT    NODE    "J",KTYPE=1 


C*-******.*.******.,*.,,..,,,,,,,,,,,.,,.,,,,^^^^^^^^^^^^^^^^^^^^^^^^^^ 


110   P(J,J)=AZ 

S(J)=S(J)+(1-BZ)*RIN1(J) 

CHKPHI=CHKPHI+AZ+BZ 
C^.. FINISHED  LOADING  THE  ELEMENT 
C 

200   CONTINUE 
RETURN 
END 

C********.**.********,**.*...,,,,,,,,,,,,,.,,,^,^^^^^^^^^^^^^^^^^^^^^^^^C 
C        ===>  NEUMANN  B.C.  EQUATION  LOADER  ^ 

c  c 

c 

*C 

C       SUBROUTINE  NEUMANN (MNOD, NNOD, J , M, N  A  C  Dl  ^ 

C       IMPLICIT  DOUBLE  PRECISION  (A-H  0-Z) 
C       PARAMETER (NN=50) 

C  C0MM0N/0UT0UT/ICHQ,IL0AD 

C  COMMON/CHKEQN/CHKPHI,CHKPSI 

C  COMMON  PI,TW0PI 

C 

C... COMPUTE  OS  AND  SUMSQ 

C 

C  JM1=J-1 

C  DX=X(J)-X(JM1) 

C  DY=Y(J)-Y(JM1) 

C  DXSQ=DX*DX 

C  DYSQ=DY*DY 

C  DS=DSQRT(DXSQ+DYSQ) 

C  SUMQ=RIN2(J)+RIN2(JM1) 

C       S(J)=S( J)-SUMQ*DS/2^D+0 
C 

C^.^SET  IPSIJ  AND  IPSIJMl  TO  LOCATION  OF  PSI'S  IN  GLOBAL  MATRIX 


■/trV 
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"v>  "V.- 

c 

C  IPSIJ=J 

C  IPSIJM1=JM1 

C  P{ J,IPSIJ)=l.D+0 

C  P(J,IPSIJMl)=-l.D+0 

C  RETURN 

C  END                                                                     ■■i-'^, 

C 

C  ===>  ROBIN  B.C.  EQUATION  LOADER                                    ^ 

C  UNCOMMENT  THIS  ROUTINE  TO  USE  ACCORDING  TO  B  C  ' S                 r 

C  AND  PHI  AND  PSI  LOCATIONS  IN  THE  GLOBAL  MATRIX*                   n 

C  *» 

C  ^     ■     .  ■  ,,  "•'^ 

C  SUBROUTINE  ROBIN  ( MNOD,  NNOD,  J ,  M,  N,  A  CD)                              ^          :'  '- 

C  IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z)'                    •                     "  '•" 

C  PARAMETER(NN=50) 

C  C0MM0N/BLK/X{NN),Y(NN),KTyPE(NN),RINl(NN),RIN2(NN) 

C  $P(NN,NN),S(NN),ANGLE(NN)                  ;,Kir<ziWN), 

C  C0MMON/0UT0UT/ICHQ,ILOAD 

C  COMMON/CHKEQN/CHKPHI,CHKPSI                                             <£ 

C  COMMON  PI,TWOPI 

C  ,"^^  ■■^'' "■, 

C... COMPUTE  DS  AND  SUMTINF  '' 

C 

C  JM1=J-1 

C  DX=X(J)-X(JM1) 

C  DY=Y{J)-Y(JM1)                                                                 -'/":,'i 

C  DXSQ  =  DX*DX                                                                .      ■■  V^' 

C  DYSQ=DY*DY                                                                   .  •   '■ 

C  DS=DSQRT(DXSQ+DYSQ)                                                            .   :. 

C  SUMTINF=RINl(J)*RIN2(JMl)+RINl(JMl)*RIN2(JMli 

C  S(J)=S(J)+SUMTINF*DS/2.D+0 

C 

C...IF  J=2  THEN  ROBIN  CONDITION  RELATES  PSI (2)  TO  PSI(l)  WHICH  IS  SFT 

C    TO  ZERO  BY  CONVENTION  f^ilJ-i  WHICH  IS  SET               ■■   ^., 

C...SET  ISPIJ  AND  IPSIJMl  TO  POSTITION  OF  PSI'S  IN  MATRIX 

t-  1  PS  I  »J  — 

C  IPSIJM1= 

C  P(,IPSIJ) 

C  IF(J.EQ.2)  THEN 

C  P( J,IPSIJMl)=O.D+0 

C  ELSE 

C  P(J,IPSIJMl)=-l.D+0 

C  END  IF 

C 

C...SET  IPHIJ  AND  IPHIJMl  TO  POSITION  OF  PHIS'S  IN  MATRIX 

C  IPHIJ= 

C  IPHIJM1= 

C  P(J,IPHIJ)=RINl{J)*DS/2.D+0 

C  P(J,IPHIJM1)=RIN1(JM1) *DS/2.D+0 

C  RETURN 

C  END 

C 

C 


-■■*■■  f> 
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C  SUBROUTINE  TO  COMPUTE  ANGLES  BETWEEN  THE  ADJACENT 
C  NODES  ==>  ANGLE(J)  USED  IN  LOADING  DIAGONAL  TERMS 
C  OF  EQN.  4-22 

C»*****«*«********************************«*»«****************** 

C 

SUBROUTINE  CANGLECMNOD, NNOD ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER (NN=50) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN ) , RIN2 ( NN )  , 
$P ( NN , NN ) , S ( NN ) , ANGLE ( NN ) 

COMMON  PI,TWOPI 

DO  100  J=1,NN0D 
C...DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 
C    FOR  THE  BRANCH  CUT  AT  THETA=0 
C 

I=J-1 

K=J  +  1 

IF(J.EQ.l)      I=MNOD 

IF(J.EQ.MNOD)   K=l 

IF ( J . EQ . MNOD+1 ) I =NNOD 

IF(J.EQ.NNOD)   K=MN0D+1 
C COMPUTE  POSITION  OF  THE  ENDPOINTS  OF  NEIGHBORS  RELATIVE  TO  "J" 

XI=X(I)-X(J) 

YI=Y(I)-Y(J) 

XK=X(K)-X(J) 

YK=Y(K)-Y(J) 
C. . .COMPUTE  ANGLE 

CALL  CAUCH5(XI,YI,ANGLEI  ) 

CALL  CAUCH5(XK,YK,ANGLEK) 

B=ANGLEI-ANGLEK 
C... ANGLE  BETWEEN  TWO  NODES  CANNOT  BE  NEGATIVE:  0<=B<=2*PI 

IF(B.LT.O)  B=B+TWOPI 
100   ANGLE(J)=B 

RETURN 

END 
C 

r*  *  *  It  *  *  *  *  *  *  *  *  It  it  -k  *  *  *  *  *  *  *  *  *  *  *  ic*  *  *  -k  **  *  ic  *  -k  *  *  *  -k  icicit  -t  *  *  Icicie  -k  *  let  *  *  icicic  *  *  **  t  *  ic 

C        THIS  SUBROUTINE  COMPUTES  THE  ANGLE  THAT  THE 

C        DIRECTED  VECTOR  FORM  THE  ORIGIN  TO  THE  POINT  (X,iY)  MAKES 

C        WITH  THE  POSITIVE  X-AXIS 

C************************** **************************************** 

C 

SUBROUTINE  CAUCH5 ( X, Y, ANGLE ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  PI,TWOPI 

I F ( X . EQ . 0 . AND . Y . GT . 0 )  ANGLE=P I / 2 . D+0 

IF ( X . EQ . 0 . AND . Y . LT . 0 )  ANGLE=PI *1 . 5D+0 

IF ( X . GT . 0 . AND . Y . GE . 0 )  ANGLE=DATAN ( Y/X ) 

IF ( X . LT . 0 . AND . Y . GE . 0 )  ANGLE=PI -DATAN ( -Y/X ) 

IF ( X . LT . 0 . AND . Y . LT . 0 )  ANGLE=PI +DATAN ( Y/X ) 

IF ( X . GT . 0 . AND . Y . LT . 0 )  ANGLE=2 . D+0 *P I -DATAN ( -Y/X ) 

RETURN 

END 
C 
C 

SUBROUT I NE  CAUCHl ( MNOD ,NNOD,J,M,N,A,B,C,D) 
(3**«*««*«««****«***«***«********************* ************************** 

C  THIS  SUBROUTINE  OUTPUTS  THE  BOUNDARY  ELEMENT  GEOMETRIC  VALUES 
C  IT  FIRST  COMPUTES  THE  DISTANCES  cl(N,J)  AND  d(M,J)  @THE  POINTJ 
C        WHERE,  M=N+1.  THEN  IT  COMPUTES  THE  ANGLE  THETA( j +1 , j-1 )  AND 


U 
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c 

c 

c 

c*** 

c 


c. 

c 

c 


c 

c. 

c 


THE  CONSTANTS  A,B,C,D  DEFINED  IN  THE  EQN .  ON  PAGE  188. 

[note:  the  eqn.  on  that  page  is  NOT  in  the  final  form  used  in 

this  program,  e.g  in  program  CAUH2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-2) 

PARAMETER (NN=50) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN ) , RIN2 ( NN ) , 
$P(NN,NN) ,S(NN) , ANGLE (NN) 

COMMON  PI,TWOPI 
. .COMPUTE  AND  STORE  2*PI 

TWOPI=2.D+0*PI 
. .DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 

FOR  THE  BRANCH  CUT  AT  THETA=0 

JM1=J-1 

JP1=J+1 

IF(J.EQ.l)      JM1=MN0D 

IF( J.EQ.MNOD)   JP1=1 

IF ( J . EQ . MNOD+1 ) JM1=NN0D 

IF(J.EQ.NNOD)   JP1=MN0D+1 

..COMPUTE  THE  VECTOR  LENGTHS  d(N,J)  AND  d(M,J) 


C 

C. 


XLN=DSQRT( (Y(N)- 
XLM=DSQRT( {Y(M)- 
A=DLOG(XLN/XLM) 


Y(J) )**2+(X(N)-X(J) )**2) 
Y(J) )**2+(X(M)-X( J) )**2) 


•CHECK  IF  DEALING  WITH  ELEMENTS  (J-1,J)  AND  [J,J+1]  :DIAGONAL  TERM 
IF(M.EQ.JMl.OR.N.EQ.JPl)  GO  TO  98 
C 

C DEALING  WITH  ELEMENT  [M,N]  AND  NODAL  POINT  J  :  SUMMATION  TERM 

C      DETERMINE  ANGLE  GEOMETRY 

ZMX=(X(M)-X(J)) 

ZMY=(Y(M)-Y(J) ) 

ZNX=(X(N)-X(J) ) 

ZNY=(Y(N)-Y(J) ) 

CALL  CAUCH5(2NX,ZNY,ANGLEN) 

CALL  CAUCH5(ZMX,ZMY,ANGLEM) 

B=ANGLEN-ANGLEM 

C IF  ENDPOINTS  M  AND  N  ARE  DIRECT  NEIGHBORS  OF  "J"  THEN 

C THE  INTERIOR  ANGLE  IS  GIVEN  IN  THE  INPUT 

IF(M.EQ. JMl.OR.N.EQ. JPl)  GO  TO  98 
C 

C ACCOUNT  FOR  PRINCIPAL  VALUE  OF  THE  LOGARITHM  .  THE  PRINCIPAL 

C      BRANCH  FOR  THE  REIMANN  SURFACE  OF  THE  LOGARITHM  RESTRAINS 
C      THETA  SUCH  THAT  -PI<THETA<=PI  TO  YEILD  A  SINGLE  VALUED 
C      FUNCTION  FOR  ln(z)  ;  z  NOT  0. 
C 


98 


99 


IF(B.LE.-PI ) 
IFCB.GT.PI ) 
GO  TO  9  9 
CONTINUE 
B=ANGLE( J) 
RETURN 
CONTINUE 


B=B+TWOPI 
B=B-TWOPI 


.COMPUTE  THE  CONSTANTS 
F=(X(N)-X(M))**2+(Y(N)-Y(M))**2 
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C=A*(X(N)-X(M) )-B*(Y(M)-Y(N) ) 

D=B*(X(N)-X(M) )4A*(Y(M)-Y(N) ) 

C  =  C/F 

D=D/F 

RETURN 

END 
C 
C 

C*  *********************««*********, **,,,***jnjm»j»,,,j^,^,^^j^^j^j^^ 
C 

C  OUTPUT  SUBROUTINE  FOR  THE  CVBEM  ESTIMATE 

C  OF  UNKNOWN  NODAL  VALUES  PHI  AND  PSI  AT  THE 

C  BOUNDARY 

C 

C 

SUBROUTI NE  OUTPUT ( MNOD , NNOD , REX , RE Y , Q ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN= 50) 

COMMON/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN), 
$P { NN , NN ), S ( NN ), ANGLE ( NN ) 
COMMON/OUTOUT/ICHQ, ILOAD 
COMMON  PI,TWOPI 
DIMENSION  REX(NN),REY(NN) 
C 

C      THIS  SUBROUTINE  OUTPUTS  RESULTS 
C 

WRITE(6,10) 

WRITE(9,10) 

10    F0RMAT(////,6X, 'CAUCHY  PROGRAM  RESULTS  FOR  NODAL  VALUES'  ///) 
IF(ICHQ.EQ.l)  THEN  '  ^ '^  ^  ' 

WRITE(*,*)  '  Q=',Q 
WRITEO,*)  •  Q=',Q 
END  IF 
WRITE(6,12) 
WRITEO, 12) 

12    F0RMAT(1X,//,6X, 'NODE', 8X, 'STATE', 6X, 'STREAM',/, 
$5X, • NUMBER ',5X, ' VARIABLE ', 4X, 'FUNCTION',/) 
DO  50  1=1, NNOD 
IF(I .EQ.MNOD+1)  WRITE(*,*) 
IF(I  .EQ.MNOD  +  1)  WRITEO,*) 
WRITE(*,55)I,REX(I),REY(I) 
WRITE (9,55)1, REX ( I ) , REY ( I ) 
55    F0RMAT(3X,I5,5X,2(D12.4,1X) ) 
50    CONTINUE 
RETURN 
END 
C 

C****************  *******************  *****l,**i,iti,i,i,**i,***i,*ici,i,i,i,i,tt**i, 
C        THIS  SUBROUTINE  COMPUTES  THE  VALUES  OF  THE  STREAM  FUNCTION 
C        STATE  VARIABLE  AT  THE  NODES  OF  THE  PROBLEM  GEOMTERY   THIS 
C        IS  ACCOMPLISHED  BY  USING  THE  GIVEN  NODAL  VALUES  AND  THE 
C        CVBEM  ESTIMATED  NODAL  VALUES  (FOR  THE  UNKNOWN  VALUES)  AND 
C        THE  CVBEM  APPROXIMATION  TO  CAUCHY ' S  INTEGRAL,  HERE  EQN .  4-22 

C        IN  ADDITION  AN  ERROR  ESTIMATE  IS  PERFORMED  COMPARING  THE 

C        NODAL  VALUES  ,  KNOWN  AND  COMPUTED  ,  TO  THE  RESULTS  OBTAINED 

C        BY  THE  CVBEM  APPROXIMATION  OF  CAUCHY ' S  INTEGRAL.  THE 

C        DISCREPENCY  BETWEEN  THE  TWO  IS  THE  ERROR  e(Z)  AT  EACH  NODE 

C*****************************************i,i,i,-ki,i,t*i,i,i,i,*in,i,i,i,i,ti,i,ti,i,i, 
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SUBROUTINE  HOMI ( REX, REY,MNOD, NNOD,Q ) 

IMPLICIT  DOUBLE  PRECISION ( A-H, 0-Z  ) 
PARAMETER (NN=50) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN) 
$P(NN,NN),S(NN),ANGLE(NN)  "^,ki«^(NN), 

COMMON  PI,TWOPI 
^      DIMENSION  H1X(NN),H1Y(NN),REX(NN),REY(NN) 

C      MAIN  LOOP 
C 

DO  20  J=1,NN0D 

HlX(J)=O.D-hO 
20    HlY(J)=O.D+0 

WRITE(9,22) 

WRI TE  f  6  7  7) 

''   3""??^ -N^nri°''''''Ii?f!;!.*'"'^°'''"'^^'°"  °^  N°^AL  VALUES-,/ 
5,10X,  NODE*      STATE       STREAM'  /) 

DO  1000  J=1,NN0D 

C 

C COMPUTE  BOUNDARY  CONTRIBUTIONS 

C 

DO  500  K=1,NN0D 

SKIP   AT  THE  END  OF  THIS  LOOP, COMPUTE  AND  ADD  PRINCIPLE  VALUE 


KK=K+1 

IF(K.EQ.MNOD)  KK=1 

IF(K.EQ.NNOD)  KK=MN0D+1 

IF(K.EQ.J.OR.KK.EQ.J)  GO  TO  50  0 

CALL  CAUCH1(MN0D,NN0D,J,K,KK,A,B,C,D) 

C1=REX(KK)*(X(J)-X(K))-REY(KK)*(Y(J)-Y(K)) 
$-REX(K)*(X(J)-X(KK))+REY(K)*(Y(J)-Y(KK  ) 

C2=REX(KK)*(Y(J)-Y(K))+REY(KK)*(X(J)-X(K)) 
$-REX(K)*(Y(J)-Y{KK))-REY(K)*(X(J)-X(KK  ) 

H1X(J)=H1X(J)+C1*C-C2*D 

H1Y(J)=H1Y(J)+C1*D+C2*C 
500   CONTINUE 
C 

C CALCULATE  PRINCIPLE  VALUE  CONTRIBUTION 

JM1=J-1 

JP1=J+1 

IF(J.EQ.l)  JM1=MN0D 

IF( J.EQ.MNOD)  JP1=1 

IF(J.EQ.MN0D+1)  JM1=NN0D 

IF{J.EQ.NNOD)  JP1=MN0D+1 

XLN=DSQRT((Y(JPl)-y(J))**2+(X(JPl)-X(J))**2) 

XLM=DSQRT((Y(JM1)-Y(J))**2+(X(JM1)-X(J)  **2 
AJ=DLOG(XLN/XLM)  ' 

BJ=TWOPI-ANGLE( J) 

H1X(J)=H1X(J)+REX(J)*AJ-REY(J)*BJ 

H1Y(J)=H1Y(J)+REX(J)*BJ+REY(J)*AJ 

C      DIVIDE  BY  2*PI*i 
C 

TEMP=H1X(J) 

TW0PI=2 .D+0*PI 

H1X(J)=H1Y(J)/TW0PI 

H1Y(J)=-TEMP/TW0PI 

C COMPUTE  CONTRIBUTIONS  DUES  TO  SOURCE 

C         RO=1.0D+0  

C 


I 


tJ. 
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C        RI=0.5D+0 

IFfQ.EQ. 0 .D+0 )  GO  TO  425 

XO=X(J) 

YO=Y(J) 
C 

C        Q=TWOPI/DLOG(RO/RI ) 
C 

C       Q=-352. 28148 
C 

CALL  CAUCHS(J,MNOD,NNOD,Q,STPHI,STPSI,XO,YO) 

H1X(J)=H1X(J)+STPHI 

H1Y(J)=H1Y(J)+STPSI 
425     IF(J.EQ.MN0D+1)  WRITE(*,*) 

IF(J.EQ.MN0D  +  1)  WRITEO,*) 

WRITE(9,450)  J, H1X( J ) , HIY ( J ) 

WRITE(6,450)  J, HIX ( J ) , HIY { J ) 
450     F0RMAT(9X,I5,1X,2(D12.5,1X)  ) 
1000    CONTINUE 
C 

C CALCULATE  NODAL  POINT  RELATIVE  ERROR 

C 

WRITEO, 550) 
WRITE(6,550) 
550     FORMAT(///,10X,  'NODAL  POINT  RELATIVE  ERROR  VALUES  ' 

5'  e(Z)',//,21X,'-',4X, •-'/,10X, -WHERE  e ( z ) =w( z ) -w( z ) • ' /) 
DO  2000  I=1,NN0D  "^  ' 

DA  =  REX(I)-H1X(I  ) 
DB=REY{I )-HlY(I ) 
IF(I .EQ.MNOD+1)  WRITE(*,*) 
IF(I  .EQ.MNOD  +  1)  WRITEO,*) 
WRITE(6,450)  I,DA,DB 
2000    WRITEO, 450)  I,DA,DB 
RETURN 
END 
C 

C        SUBROUTINE  CAUCHS  COMPUTES  THE  SOURCE  TERM  CONTRIBUTIONS 
C***************. ,*,»,*****,*»*,, ,,,.,..,,.,,^,,^^^^°^™IBUTIONS^^ 

C 

SUBROUTINE  CAUCHS (K , MNOD, NNOD, Q, STPHI , STPSI  XO  YO ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z)  '   ' 

PARAMETER (NN= 50) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN) 
$P(NN,NN),S(NN),ANGLE(NN)  ' 

COMMON  PI,TWOPI 
C 

C        INITIALIZE  CONSTANTS 
C 

A=O.D+0 

B=0.D+0 

C=O.D+0 

D=O.D+0 

Cl=O.D+0 

Dl=O.D+0 

C2=0.D+O 

D2=0.D+0 

C4=0.D+0 

D4=0.D+0 

C5=0.D+0 

D5=0.D+0 


?:f^**  ■ 
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c 

C        ir  K  =  0   THEN  POINT  (XG,!'^)  13  AN  INTERIOR  POINT 
C        IF  KOO  THEN  POINT  {XO,YO)  IS  A  BOUNDARY  POINT 
C 

C CHECK  IF  POINT  IS  AN  INTERIOR  POINT 

C 

IF  (K.EQ.O)  GO  TO  1000 
C 

C CHECK  IF  K  IS  A  BOUNDARY  BRANCH  NODE  :  K  =  l  OR  MNOD  +  1 

C 

IF(K.EQ.l. OR. K.EQ. MNOD+1)     GO    TO    100 
C 

C K    IS    AN    ORDINARY    BOUNDARY    NODE 

C 

XO=X(K) 

YO=Y(K) 

C IF  K=MNOD  LOOSE  THE  FIRST  TERM 

C 

IFCK.EQ.MNOD)  GO  TO  200 

ISFLAG=1 

N=l 

M=MNOD 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C1=C 

D1  =  D 

C 

C IF  K=NNOD  LOOSE  LAST  TERM 

C 

IF(K.EQ.NNOD)  GO  TO  300 
200     ISFLAG=1 
N=MN0D+1 
M=NN0D 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,X0,YO) 

C2=C 

D2  =  D 
C  *      * 

C COMPUTE  A  AND  B 

C 
300     ISFLAG=0 

N=MN0D+1 

M=l 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
AS=A 
BS  =  B 

ST0X1=C1*(X0-X(MN0D) ) -Dl* ( YO-Y (MNOD) ) 
ST0X2=C2*(X0-X(NN0D) ) -D2* ( YO-Y (NNOD ) ) 
ST0Y1=C1*(Y0-Y{MN0D) ) +D1* ( XO-X ( MNOD ) ) 
STOY2=C2*(YO-Y(NNOD) ) +D2* ( XO-X ( NNOD ) ) 
STPHI= ( ST0X1-ST0X2+AS ) *Q/TWOPI 
STPSI={ST0Y1-ST0Y2+BS) *Q/TWOPI 
RETURN 
100     IF(K.EQ. MNOD+1)  GO  TO  150 
C 

C NODE  K  IS  A  BRANCH  NODE  K  =  l 

C  *       * 

C        COMPUTE  A   AND  B 
C 

ISFLAG=0 

N=MN0D+1 

M=MNOD 
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X0=X(1) 
i'0  =  Y(l) 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
AS=A 

BS  =  B 

C COMPUTE  SECOND  TERM 

ISFLAG=1 

N=MN0D+1 

M=NNOD 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
C4=C 

D4=D 

STOX2=C4*(XO-X(NNOD) )-D4*(Y0-Y(NN0D) ) 
STOY2=C4*(YO-Y(NNOD))+D4*(XO-X(NNOD)) 
STPHI= ( AS-ST0X2 ) *Q/TWOPI 
STPSI= ( BS-ST0Y2 ) *Q/TWOPI 
RETURN 
C 

^ BOUNDARY  NODE  IS  BRANCH  NODE  K=MN0D  +  1 

150     X0=X(MN0D+1) 
Y0=Y(MN0D+1) 
C        COMPUTE  FIRST  TERM 
ISFLAG=1 
N  =  l 
M=MN0D 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
C5=C 

D5  =  D 
C  *       » 

C        COMPUTE  A   AND  B 
ISFLAG=0 
N=NNOD 
M  =  l 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
AS  =  A 

BS  =  B 

ST0X1=C5*(X0-X(MN0D) )-D5*(Y0-Y(MN0D) ) 
ST0Y1=C5*(Y0-Y(MN0D) )+D5*(X0-X(MN0D) ) 
STPHI = ( AS+STOXl ) *Q/TWOPI 
STPS I = ( BS+STOYl ) *Q/TWOP I 
RETURN 
C 

C NODE  IS  AN  INTERIOR  NODE 

C 

1000    CONTINUE 

C COMPUTE  FIRST  TERM 

ISFLAG=1 

N  =  l 

M=MNOD 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

D1  =  D 
C 

C COMPUTE  LAST  TERM 

C 

N=MN0D+1 
M=NN0D 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
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D2  =  D 
C  *       * 

C COMPUTE  A   AND  B 

C 

ISFLAG=0 

N=MN0D+1 

M=l 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 
AS  =  A 
BS  =  B 
C 

C COMPUTE  SOURCE  TERM  CONTRIBUTIONS  TO  AN  INTERIOR  POINT 

ST0X1=C1*(X0-X(MN0D) ) -Dl* ( YO-Y ( MNOD ) ) 

STOX2=C2*(XO-X(NNOD) ) -D2* ( YO-Y ( NNOD ) ) 

STOY1=C1*(YO-Y(MNOD) )+Dl*(XO-X(MNOD) ) 

STOY2=C2*(YO-Y(NNOD) ) +D2* < XO-X ( NNOD ) ) 

STPHI= ( ST0X1-ST0X2+AS ) *Q/TWOPI 

STPSI=(ST0Y1-ST0Y2+BS ) *Q/TW0PI 

RETURN 

END 
C 
C******«********, ***«,*,*,,*,»«**„, ***«*»^^^,^,,^,,,,,,^,^^^^^^^^^^^^^ 

C  THIS  SUBROUTINE  OUTPUTS  THE  BOUNDARY  ELEMENT  GEOMETRIC  VALUES 

C  FOR  THE  SOURCE  TERM  CONTRIBUTIONS  vAi^Ubb 

n  ILll^^'^    COMPUTES  THE  DISTANCES  d(N,J)  AND  d(M,J)  gTHE  POINTJ 

C  WHERE,  M=N+1.  THEN  IT  COMPUTES  THE  ANGLE  THETA  j+l^j-l)  AND 

C  THE  CONSTANTS  A,B,C,D  DEFINED  IN  THE  EQN .  ON  PAGE  188 

C  '"°*^^=  t^^  ^<3"-  °n  that  page  is  NOT  in  the  final  form  used  in 

C  this  program,  e.g  in  program  CAUH2] 

C 

SUBROUTINE  CAUCHQ (M, N, A, B, C, D, I SFLAG, XO, YO ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER(NN=50) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN) 
SP(NN,NN),S(NN),ANGLE(NN)  ^^'"), 

COMMON  PI,TWOPI 
C 

C COMPUTE  THE  VECTOR  LENGTHS  d(N,J)  AND  d(M,J) 

XLN=DSQRT ( ( Y ( N ) -YO ) *  *  2+ ( X ( N ) -XO ) *  *  2 ) 

XLM=DSQRT( ( Y ( M ) -YO ) **2+ ( X ( M) -XO ) **2 ) 

A=DLOG(XLN/XLM) 
C 
C DETERMINE  ANGLE  GEOMETRY 

ZMX=(X(M)-XO) 

ZMY=(Y(M)-YO) 

ZNX=(X(N)-XO) 

ZNY=(Y(N)-YO) 

CALL  CAUCH5(ZNX,ZNY,ANGLEN) 

CALL  CAUCH5(ZMX,ZMY,ANGLEM) 

B=ANGLEN-ANGLEM 
C 

^ ACCOUNT  FOR  PRINCIPAL  VALUE  OF  THE  LOGARITHM  .  THE  BRANCH  CUT 

C        TAKEN  SUCH  THAT  -PI<THETA<=PI 

IF(B.LE.-PI)  B=B+TWOPI 

IF(B.GT.PI)   B=B-TWOPI 

IF(ISFLAG.EQ.O)  RETURN 


c 


129 


C COMPUTE  THE  CONSTANTS 

C 

F=(X(N)-X(M))**2+(Y(N)-y(M))**2 
C=A*(X(N)-X(M) )-B*(y(M)-Y(N) ) 
D=B*(X(N)-X(M))+A*(Y(M)-Y(N)  ) 
C  =  C/F 
D  =  D/F 
RETURN 
END 
C 

0=========   MATOUT  OUTPUT  OF  MATRIX  EQUATIONS  SUBROUTINE   ===========c 

S  C 

C  THIS  ROUTINE  OUTPUTS  IN  TABULAR  FORM  OF  IMAX  x  10  THE  C 

C  COEFFIENT  MATRIX  [ AA ]  , THEN  THE  RHS  VECTOR  {BB},  AND  THE  C 

C  L-INFINITY  NORM  OF  [ AA 1  r 

^  C 

C  ^ 

SUBROUTINE  MATOUT{ AA, BB, IMAX ) 
IMPLICIT  DOUBLE  PRECISION ( A-H, 0-Z ) 
PARAMETER (NN= 50) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN), 
$P ( NN , NN ), S ( NN ), ANGLE ( NN ) 

DIMENSION  AA(NN,NN),BB(NN) 

INTEGER  ICOL(IO) 
C 
C 

WRITE(6,250) 

WRITE(9,250) 
250     F0RMAT(1X,///1X, 'THIS  IS  MATRIX  (P)') 

KT  =  1 

DO  400  II=1,IMAX/10+1 

IC0L(1)=KT 

IFdCOLd)  .GT.IMAX)    GO    TO    400 

DO    236    IL=1,9 
236  IC0L(IL+1)=IC0L(IL)+1 

KTP9=KT-k9 

IF(KTP9.GE.IMAX)    KTP9=IMAX 

WRITE(6,260)     (ICOLd  ),I=1,10) 

WRITE(9,260)     (ICOLd  ), 1=1, 10) 
260  F0RMAT(1X,//,6X,I3,9(8X,I3) ) 

WRITE(6,270) 

WRITE(9,270) 
270  F0RMAT(1X,116( •-• ) ) 

DO    300    1=1, IMAX 

WRITE(6,350)    I,(AAd,J),J  =  KT,KTP9) 

WRITE(9,350)     I , ( AA( I , J ) , J=KT,KTP9 ) 
350  F0RMAT(  •  I  ',13,  '  I  MOCDIOM,  '  I  •  )  ) 

.300  CONTINUE 

400  KT=KT+10 

WRITE{9,450) 

WR1TE(5,450) 

F0RMAT(1X,//,2X, 'THIS  IS  VECTOR  { S } ' , /, IX, 19 ( ' - • )  // 


450 


$14X,'{S}',5X,'KTYPE(I)',5X,'SUMJ(A(I,J))',2X,  -SUMdAd'j)!)'/) 

C INITIALIZE  NORMS 

RNORMA=0.D+0 
RNRMAI=0.D+O 
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DO  460  I=1,IMAX 
G7C2=C.DiO 
ST01=O.D+0 
DO  465  J=1,IMAX 
ST01=ST01+DABS(AA(I,J) ) 
465     ST02=ST02+AA(I,J) 

RN0RMA=DMAX1 ( RNORMA, STOl ) 

WRITE(6,461)  I,BB(I ) , KTYPE ( I ) , ST02 , STOl 

460  WRITE(9,461)  I , BB ( I ) , KTYPE ( I ) , ST02 , STOl 

461  FORMATOX,  '  I  '  ,  I  3 ,  '  I  '  ,  DIG  .  4  ,  '  I  '  ,  5X,  I  3,  2  (  SX,  '  I  '  ,  DIO  .  4  ,  '  I  •  )  ) 
C END  OF  MATRIX  EQUATION  OUPUT 

RETURN 
END 

C  C 
C===========  SIMULTANEOUS  EQUATIONS  SOLVING  LIBRARY  =================0 

C  C 

C  3  ROUTINES  CAN  BE  ACCESSED:  C 

C  C 

C  1.  DSOLVE  ->  LU  DECOMPOSITION  W/  BACKSUSTITUTION  C 

C  2.  INVDET  ->  INVERT  MATRIX  W/  GAUSSIAN  ELIMINATION  C 

C  PARTIAL  PIVOTING  AND  EQUILIBRATION  C 

C  3.  SVD     ->  SINGULAR  VALUE  DECOMPOSITION  W/  C 

C  BACKSUBSTITUTION  C 

c  c 

C  C 

C**************«*************««************«««**«««**«****««*********c 

C  c 

C===========l .  DSOLVE  simultaneous  equation  solver  ==================c 

C  C 

c«*«**««**«*«****«**«**«***««*«****«********************************«c 

C  C 

C  THIS  SUBROUTINE  SOLVES  THE  ADIMXN  SYSTEM  OF  EQUATIONS  AX=B  C 

C  VIA  LU  DECOMPOSITION  , PARTIAL  PIVOTING  AND  WITH  ITERATIVE  C 

C  REFINNENT  C 

C  MAIN  PROGRAM  MUST  DIMENSION  DOUBLE  PRECISION:  C 

C  A(ADIM,N),T(TDIM,N),B(N),X(N),R(N)  C 

C  MAIN  MUST  DIMENSION  INTEGER  IV(N)  C 

C  MAIN  MUST  DECLARE  INTEGER  TDIM, ADIM, lER  C 

C  C 

C  N  >  ORDER  OF  SYSTEM  OF  EQUATIONS  C 

C     TDIM  >  RWO  DIMENSION  OF  ARRAY  [Tl  C 

C  T  >  TWO  DIMENSIONAL  ARRAY  CONTAINING  THE  LU  DECOMPOSITION  C 

C  OF  THE  COEFFICIENT  MATRIX  FROM  SUBROUTINE  DLUD  C 

C  IV  >  VECTOR  CONTAINIG  THE  INTERCHANGE  INFORMATION  C 

C  GENERATED  BY  THE  SUBROUTINE  DLUD  DURING  THE  LU  C 

C  DECOMPOSITION  OF  THE  COEFFICIENT  MATRIX  C 

C  B  >  VECTOR  CONTAINING  THE  RIGHT-SIDE  OF  THE  SYSTEM  OF  C 

C  LINEAR  EQUATIONS  ON  INPUT  AND  THE  SOLUTION  ON  OUTPUT  C 

C  C 

Q«******«*«****«******««***«*«****************««*******************«*C 

SUBROUTINE  DSOLVE ( A, B, N, ADIM, TDIM, T, IV, X, R, lER ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INTEGER  IER,IV(N), ADIM, TDIM 

DIMENSION  A( ADIM, N),T( TDIM, N),B(N),X(N),R(N) 

CALL  DLUD(N,ADIM,A,TDIM,T,IV) 

CALL  DIR(N,ADIM,A,TDIM,T,IV,X,B,R,IER) 

RETURN 

END 

SUBROUTINE  DLUD (N, ADIM, A, TDIM, T, IV ) 


131 


C**************  *****************************************************  *Q 

C        THIS  SUBROUTINE  PESyCRXC  LU  DECOMPOSITION  OF  MATIX  [A]        C 

IMPLICIT  DOUBLE  PRECI SION ( A-H, 0-Z ) 

INTEGER  N,ADIM,TDIM,IER,IV(N),I,J,K,KP1,L 

DIMENSION  A(ADIM,N),T(TDIM,N) 

IF  (ADIM.LT.N)  GO  TO  8110 

DO  8100  J=1,N 

DO  8100  1=1, N 
8100  T{I, J)=A(I,J) 
8110    CONTINUE 

IV(N)=1 

DO  8260  K=1,N 

PIV=DABSCTCK,K) ) 

IF  (K.GE.N)  GO  TO  8260 

L=K 

KP1=K+1 

DO  8200  I=KP1,N 

IF  (PIV.GE.DABS(T(I,K) ) )  GO  TO  8200 

PIV=DABS(T(I,K) ) 

L=I 
8200    CONTINUE 

IV(K)=L 

TMP=T(L,K) 

IF  (K.NE.L)  GO  TO  8210 

IF  (PIV.GT.O.D+0)  GO  TO  8220 

IV(N)=0 

GO  TO  8260 
8210    CONTINUE 

IV(N)=-IV(N) 

T(L,K)=T(K,K) 

T(K,K)=TMP 
8220    CONTINUE 

TMP=-TMP 

DO  8230  I=KP1,N 
8230    T(I,K)=T(I,K)/TMP 

DO  8250  J=KP1,N 

TMP=T(L,J) 

T{L,J)=T(K,J) 

T(K,J)=TMP 

DO  8240  I=KP1,N 
8240    T(I, J)=T(I, J)+T(I,K)*TMP 
8250    CONTINUE 
8260    CONTINUE 

IF  (PIV.EQ.O.D+0)  IV(N)=0 

RETURN 

END 
C 

Q**** ************  IC************************  ************************** ****Q 
C  C 

C  THIS  SUBROUTINE  SOLVES  THE  SYSTEM  [A]{X}={B}  USING  ITERATIVE  C 

C  REFINMENT  AND  THE  LU  DECOMPOSITION  OF  A  PROVIDED  VIA  C 

C  SUBROUTINE  DLUD.  SEE  RALSTON  AND  RABINOWITZ  FOR  THE  ITERATIVE  C 

C  REFINEMENT  ALGORITHM  C 

C  C 

C  ==>  HOWEVER,  HERE  THE  ITERATIVE  REFINEMENT  IS  TURNED  OFF  BY  C 

C  SETTING  IER=0  BECAUSE  QUADRUPLE  PRECISION  IS  UNAVAILABLE  C 

C  IN  MS-FORTRAN  4.1  C 

Q***********************************************************************Q 

c 
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SUBROUTINE  DIR(N, ADIM, A, TDIM, T, IV,X, B,R, lER ) 
IMPLICIT  DOUBLE  PRECISION ( A-H, 0-Z ) 
INTEGER  I,N,ADIM,TDIM,IER,IV(N) 
DIMENSION  A( ADIM, N),T( TDIM, N),B(N),X(N),R(N) 
DOUBLE  PRECISION  QU0T,XN1,RN1 
IER  =  0 

DO  8100  1=1, N 
8100    X(I)=B(I) 

IF  (IV(N).EQ.O)  RETURN 
QUOT=1.D+0 

CALL  DBS(N,TDIM,T,IV,X) 
C 

IF(IER.EQ.O)  RETURN 
C 

8200    CALL  DAXMB(N,ADIM,A,X,'b,R) 

CALL  DBS(N,TDIM,T,IV,R) 

IER=IER+1 

XNl=O.D+0 

RNl=0.D+0 

DO  8210  1=1, N 

XN1=XN1+DABS(X(I ) ) 

RN1=RN1+DABS(R(I ) ) 
8210    X(I)=X(I)-R(I) 

IF  (XNl.GT.O.D+0)  RN1=RN1/XN1 

IF  ( (RNl+RNl) .LE.QUOT)  GO  TO  8220 

IER=-IER 

RETURN 
8220    CONTINUE 

QU0T=RN1 

IF  ( (l.D+0+RNl) .NE.l.D+0)  GO  TO  8200 

RETURN 

END 

SUBROUTINE  DBS ( N, TDIM, T, I V, B ) 

r  l^lL^'ill"^'^^^^    ^°^^^^    (A){X}  =  {B}  BY  BACKWARD  SUBSITUTION    C 

IMPLICIT  DOUBLE  PRECISION ( A-H, 0-Z ) 

INTEGER  N,TDIM,IV(N),I,K,KP1,L 

DIMENSION  T(TDIM,N),B(N) 

DO  8110  K=1,N 

IF  (K.GE.N)  GO  TO  8110 

L=IV(K) 

TMP=B{L) 

B(L)=B(K) 

B(K)=TMP 

KP1=K+1 

DO  8100  I=KP1,N 
8100    B(I)=B(I)+T(I,K)*TMP 
8110    CONTINUE 

K=N 
8200    B(K)=B(K)/T(K,K) 

IF  (K.LE.l)  GO  TO  9000 

TMP=-B{K) 

KP1=K 

K=K-1 

DO  8210  1=1, K 
8210    B(I)=B(I)+T(I,KP1)*TMP 

GO  TO  8200 
9000    RETURN 
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END 

SUBROUTINE  DAXMB (N, ADIM, A, X, B, R ) 
C*********«****«  ********************  X*******  ***«««*****««»*««««««**»(-. 

C  THIS  SUBROUTINE  CALCULATES  THE  RESIDUAL  VECTOR  C 

C  {R)=(A1{X}-{B}  C 

C  NOTE:  FOR  THIS  TO  BE  USEFUL  MUST  USE  HIGHER  ORDER  PRECISION  C 

C  THAN  IN  THE  OTHER  SUBROUTINES ( SEE  BURDEN, FAIRES , AND  C 

C  REYNOLDS,  "NUMERICAL  ANALYSI S" , PP  .  39 5-402 ,  ESP.  400  C 

INTEGER  N,ADIM 

C HERE  THE  ARRAYS  AND  VECTORS  SHOULD  BE  DECLARED  HIGHER  ORDER 

C        PRECISION  THAN  DOUBLE  PRECISION 

DOUBLE  PRECISION  A ( ADIM, N ) , X ( N ) , B ( N ) , R ( N ) 

C HERE  DOUBLE  PRECISION  ARRAYS  AND  VECTORS  SHOULD  BE  CONVERTED 

C        TO  HIGHER  PRECISION  BEFORE  COMPUTATION 

DO  10  1=1, N 

R(I)=O.D+0 

DO  20  J=1,N 
20      R(I)=R(I)+A(I,J)*X(J) 
10      R(I)=R(I)-B(I) 

RETURN 

END 
C**«***********************  FINISH  DLUD  ********************************c 

C 

C  C 

(;*********«**«*******«*«***********««****«**«*******««***«««««««»««*«««*(-. 

C  C 

C======  2.  INVDET  SUBROUTINE  TO  COMPUTE  INVERSE  OF  A  MATRIX   ===========0 

C  C 

C        SUBROUTINE  COMPUTES  THE  INVERSE  OF  AN  NxN  MATRIX  (C)  C 

C        AND  RETURNS  THE  INVERSE  IN  (CI.  THE  METHOD  USED  IS  C 

C        GAUSS-JORDAN  ELIMINATION  WITH  PIVOTING  AND  EQUILIBRATION         C 

c  c 

C  THE  DETRMINANT  OF  (CI  IS  RETURNED  IN  DETM  C 

C  THE  DETERMINANT  DIVIDED  BY  THE  EUCLIDEAN  NORM  OF  (C]  IS  C 

C  RETURNED  AS  DTNRM .  IF  THIS  NUMBER  IS  SMALL  , THE  MATRIX  IS  C 

C  ILL-CONDITIONED  C 

c  c 

C        REF.:  HORNEBECK,  "NUMERICAL  ANALYSIS",  PP. 294-295  C 

c  c 

SUBROUTINE  INVDET ( C, DTNRM, DETM ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER(NN=50) 

DIMENSION  C(NN,NN), J(NN+30) 

N  =  NN 
C 

C COMPUTE  THE  ESTIMATE  TO  THE  EUCLIDEAN  NORM 

C 

PD=l.D+0 

DO  124  L=1,N 

DD=O.D+0 

DO  123  K=1,N 

123  DD=DD+C(L,K)*C(L,K) 
DD=DSQRT(DD) 

124  PD=PD*DD 

C INVERT  MATRIX  AND  COMPUTE  DETERMINANT 

C 


C.  :■'■■. 

Ni..'  V-* 
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DETM=l.D+0 
DO  125  :.  =  1,N' 

125  J(L+20)=L 

DO  144  L=1,N 

CC=O.D+0 

M  =  L 

DO  135  K=L,N 

IF((DABS(CC)-DABS(C(L,K))).GE.O.D+0)  GO  TO  135 

126  M=K 

CC=C(L,K) 
135     CONTINUE 

127  IF(L.EQ.M)  GO  TO  138 

128  K=J(M-t-20) 
J(M+20)=J(L+20) 
J(Lf20)=K 

DO  137  K=1,N 

S=C(K,L) 

C(K,L)=C(K,M) 

137  C(K,M)=S 

138  C(L,L)=l.D+0 
DETM=DETM*CC 
DO  139  M=1,N 

139  C(L,M)=C(L,M)/CC 
DO  142  M=1,N 
IF(L.EQ.M)  GO  TO  142 

129  CC=C(M,L) 
IF(CC.EQ.O.D+0)  GO  TO  142 

130  C(M,L)=O.D+0 
DO  141  K=1,N 

141  C(M,K)=C(M,K)-CC*C(L,K) 

142  CONTINUE 
144     CONTINUE 

DO  143  L=1,N 

IF(J(L+20) .EQ.L)  GO  TO  143 

131  M=L 

132  M=M+1 

IF(J(M+20) .EQ.L)  GO  TO  133 
136     IF(N.GT.M)  GO  TO  132 

133  J(M+20)=J(L+20) 
DO  163  K=1,N 
CC=C(L,K) 
C{L,K)=C(M,K) 

163     C(M,K)=CC 
JCL-t-20)=L 

143  CONTINUE 
DETM=DABS(DETM) 
DTNRM=DETM/PD 
RETURN 

END 
C 
C****************,*,***    FINISH    INVDET    **•******************,****», **.,»»^ 

C=======    SUBROUTINE    TO    SOLVE    ILL-CONDITIONED    SYSTEM    OF    EQUATIONS    ======-§ 


c 
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c  c 

C  l.THIS  SUBROUTIHE  PERFORMS  THE  SINGULAR  VALUE  DECOMPOSITION  OF  C 

C  THE  COEFFICIENT  MATRIX  [Al  C 

C  2. PROMPTS  THE  USER  FOR  THE  EGIENVALUES  TO  DISCARD  C 

C  ==>  EPS=SMALLEST  EIGENVALUE  KEPT,  MAKE  THIS  OF  THE  ORDER  OF  C 

C  THE  PRECISION  OF  ARITHMETIC  USED...  EPS=1.E-12  HERE  IS  GOOD  C 

C  3. PERFORMS  BACK  SUBSTITUTION  W/MODIFIED  EIGENVECTOR  C 

C  4.  COMPUTES  EXACT  CONDITIONING  NUMBER  AS  RATIO  OF  LARGEST  TO  C 

C  SMALLEST  EIGNEVALUES  C 

c  c 

C       REF. :  "Numerical  Recipies,  the  art  o£  Scientific  Computing,"    c 
C  Cambridge  Press,  1988.  C 

C  C 

c* *******«***«*«*******«******««**«********♦*«**#,«**«»#***»*«#*«#*»*** *^ 

c 

SUBROUTINE  SVD ( A, B, X, NP , C, U, V, W ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A(NP,NP),B(NP),U(NP,NP),W(NP) 

DIMENSION  V(NP,NP),C(NP),X(NP), STOW (200) 

N=NP 

M  =  l 
C 

C Copy  A  into  U 

C 

DO  12  K=1,N 

DO  11  L=1,N 

U(K,L)=A(K,L) 

11  CONTINUE 

12  CONTINUE 
C 

C Decompose  matrix  A 

C 

CALL  SVDCMP(U,N,N,NP,NP,W,V) 
C 

C Find  maximum  singular  value 

C       and  minimum  singular  value 
C 

WMAX1=0.0 

WMIN1=1.D+10 

DO  13  K=1,N 

WMAX1  =  DMAX1(WMAX1,W(K)  ) 
WMIN1=DMIN1(WMIN1,W(K)  ) 

13  CONTINUE 
C 

C Compute  and  output  the  conditioning  number  of  the  matrix 

C       defined  as  the  ratio  K( A) =WMAX1/WMIN1 
C 

WRITE(*,*) 
WRITE(9,*) 

WRITE(*, ' (1X,A,I2) • )  'Singular  value  vector  '      '  - 
WRITE(9, ' (1X,A,I2) ' )  'Singular  value  vector  ' 
WRITE(*, • (1X,6E12.4) • )  (W(K),  K=1,N) 
WRITE(9, ' (1X,6E12.4) ' )  (W(K),  K=1,N) 
C0NDN0=WMAX1/WMIN1 
WRITE(*,100)  WMAX1,WMIN1,C0NDN0 
WRITE(9,100)  WMAX1,WMIN1,C0NDN0 
100     FORMATdX,//, IX,  'MAXIMUM  SINGULAR  VALUE  OF  [  A  1  =  '  ,  DIO  .  4  , /, 
$1X, 'MINIMUM  SINGULAR  VALUE  OF  ( A ) = ' , DIO . 4 , //, 

$1X,  'K(A)  =  ' , DIO. 4, 2X,  'RESULT  FROM  SVD',//)  '.  .  /  I  ,^ 

WRITE(*,*)  '**********************************«  I  __         '.'■■. 
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READ(*,*) 
C 

C STORE  SINGULAR  VALUES  TO  REDO  SOLN 

C 

DO  200  K=1,N 
200     STOW(K)=W(K) 
C 

^ input  EPS  and  define  "SMALL" 

C 

10      WRITE(*,*)  'INPUT  EPS  FOR  SVD • 
READ(*,*)  EPS 
WMIN=WMAX1*EPS 
WRITE(9,20)  EPS,WMIN 

20      FORMAT(1X,//,1X,50( •-•),/, IX, -SVD  SOLN  W/  EPS=-,D10  4  / 
SIX, 'REJECTING  w(j)  <= ' , DIO . 4 , // )  ,uxu.4,/, 

C SET  W(I)  =  STORED  W{I) 

DO  210  K=1,N 
210     W(K)=STOW(K) 
C 

<^ Zero  the  "small"  singular  values 

C 

DO  14  K=1,N 

IF  (W(K) .LT.WMIN)  W(K)=0.0 

14  CONTINUE 
C 

^ Backsubstitute  for  each  right-hand  side  vector 

DO  18  L=1,M 

WRITE(*,'(1X,A,I2) ' )  'Vector  number  '  L 
WRITE(9,'(1X,A,I2)')  'Vector  number  ''l 
DO  15  K=1,NP 

C(K)=B(K) 

15  CONTINUE 

CALL  SVBKSB(U,W,V,N,N,NP,NP,C,X) 

WRITE(*,»)  •     Solution  vector  is-' 

WRITE(*,'(1X,6F12.6)')  (X(K),  K=1,N) 

WRITE(«,*)  >     Original  right-hand  side  vector-' 

WRITE{*,'(1X,6F12.6)')  (C(K),  K  =  1,N)      '^^  =  t°'^  • 

WRITE(»,*)  '     Result  of  (matr ix ) * ( sol • • n  vector) 

WRITEO,*)  '     Solution  vector  is-'         ector ) 

WRITE(9,'(1X,6F12.6)')  (X(K),  K=1,N) 

WRITE(9,*)  '     Original  right-hand  side  vector- ' 

WRITE(9,'(1X,6F12.6)')  (C{K),  K=1,N) 

dS"?'k  =  I,'n'     ""^^""^^    °'  (matrix)*(sol"n  vector): 
C(K)=0.0 
DO  16  J=1,N 

.,  C(K)=C(K)+A(K,J)*X(J) 

1»  CONTINUE 

17  CONTINUE 
WRITE(*,'(1X,6F12.6)')  (C(K),  K=1,N) 
WRITE(9,'(1X,6F12.6)')  (C{K),  K=1,N) 

18  CONTINUE  '  ' 
WRITE(*,*)  '**************************,,,«,,,«,, 
READ(*,*) 

WRITE(*,*)  'TO  REDO  SOLN  W/  DIFFERENT  EPS  ENTER  1' 
WRITEC*,*)  'TO  EXIT  ALGORITHM  W/  LAST  EPS  ENTER  0' 
READ(*,*)  ICH 
IF  (ICH.EQ.l)  GO  TO  10 


t 
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RETURN 
END 

C 

C        SUBROUTINE  SVDCMP.FOR  PERFORMS  SINGULAR  VALUE  DECOMPOSITION  OF  C 
THE  MATRIX  (A).  SEE  VARAH  •  S  PAPER  AND  "Numerical  SpJes?  .  "   c 


C 

C  pp.     55-65 

C  C 

C  SVD    PROVIDES    THE   MATRICES     (Ul     [W]    AND    (V]     IN    EQN    2    9    1  r 

C  orTHrEIOESvSEr^F    'If    '''     ''    ''^    ^^^°°"^^    ^'^'''^    ^^^^^^^^    ^ 

c  c 

c******************,*,*,,**..,,,,,,,,,,,,,,,,,,^^^^,^^^^^^^^^^^^^^^^^^^^c 

SUBROUTINE  SVDCMP ( A,M, N, MP, NP, W, V ) 

PARAMETER  {NMAX=200) 

IMPLICIT  DOUBLE  PRECI SION ( A-H, 0-Z ) 

DIMENSION  A(MP,NP),W(NP),V(NP,NP),RV1(NMAX) 
G=0 .  0 

SCALE=0.0 
ANORM=0.0 
DO  25  1=1, N 

L  =  I+1 

RV1(I)=SCALE*G 

G=0.0 

S  =  0.0 

SCALE=0 . 0 

IF  (I.LE.M)  THEN 
DO  11  K=I,M 

SCALE=SCALE+DABS(A(K,I ) ) 

11  CONTINUE 

IF  ( SCALE. NE. 0.0)  THEN 
DO  12  K=I,M 

A(K,I)=A(K,I)/SCALE 
S=S+A(K,I)*A(K,I) 

12  CONTINUE 
F=A(I,I) 

G=-SIGN(SQRT{S),F) 
H=F*G-S 
A(I,I)=F-G 
IF  (I.NE.N)  THEN 
DO  15  J=L,N 
S  =  0.0 
DO  13  K=I,M 

S=S+A(K,I)*A(K,J) 

13  CONTINUE 
F  =  S/H 

DO  14  K=I,M 

A(K,J)=A(K,J)+F*A(K,I) 

14  CONTINUE 

15  CONTINUE 
ENDIF 

DO  16  K=  I,M 

A(K,I )=SCALE*A(K,I ) 

16  CONTINUE 
ENDIF 

ENDIF 

W(I)=SCALE  *G 
G=0.0 
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S  =  0.0 
SCALE^O.O 

IF  ( (I .LE.M) .AND. (I .NE.N) )  THEN 
DO  17  K=L,N 

SCALE=SCALE+DABS(A(I,K) ) 

17  CONTINUE 

IF  ( SCALE. NE. 0.0)  THEN 
DO  18  K=L,N 

A(I,K)=A(I,K)/SCALE 
S=S+A(I,K)*A(I,K) 

18  CONTINUE 
F=A(I,L) 

G=-SIGN(SQRT(S),F) 
H=F*G-S 
A(I,L)=F-G 

DO  19  K=L,N 

RV1(K)=A(I,K)/H 

19  CONTINUE 

IF  (I.NE.M)  THEN 
DO  23  J=L,M 
S  =  0.0 
DO  21  K=L,N 

S=S+A(J,K)*A(I,K) 

21  CONTINUE 

DO  22  K=L,N 

A(J,K)=A(J,K)+S*RV1(K) 

22  CONTINUE 

23  CONTINUE 
ENDIF 

DO  24  K=L,N 

A{I,K)=SCALE*A(I,K) 

24  CONTINUE 
ENDIF 

ENDIF 

AN0RM=DMAX1(AN0RM,(DABS(W(I) ) +DABS ( RVl ( I ) 1 )) 

25  CONTINUE 

DO  32  I=N,1,-1 

IF  (I.LT.N)  THEN 

IF  (G.NE.0.0)  THEN 
DO  26  J=L,N 

V(J,I)=(A(I,J)/A(I,L))/G 

26  CONTINUE 

DO  29  J=L,N 
S  =  0.0 
DO  27  K=L,N 

S=S+A(I,K)*V(K,J) 

27  CONTINUE 

DO  28  K=L,N 

V(K,J)=V(K,J)+S*V(K,I) 

28  CONTINUE 

29  CONTINUE 
ENDIF 

DO  31  J=L,N 
V(I,J)=0.0 
V(J,I )=0.0 
31        CONTINUE 
ENDIF 

V(I,I)=1.0 
G=RV1(I ) 
L=I 
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32  CONTINUE 

DO  39  I-N,l,-  1 
L  =  I+1 
G=W(I) 

IF  (I.LT.N)  THEN 
DO  33  J=L,N 
A(I,J)=0.0 

33  CONTINUE 
ENDIF 

IF  (G.NE.0.0)  THEN 
G=1.0/G 

IF  (I.NE.N)  THEN 
DO  36  J=L,N 
S  =  0.0 
DO  34  K=L,M 

S=S+A(K,I)*A(K,J) 

34  CONTINUE 
F=(S/A(I,I))*G 
DO  35  K=I,M 

A(K,J)=A(K,J)+F*A(K,I) 

35  CONTINUE 

36  CONTINUE 
ENDIF 

DO  37  J=I,M 

A(J,I )=A(J,I)*G 

37  CONTINUE 
ELSE 

DO  38  J=  I,M 
A(J,I)=0.0 

38  CONTINUE 
ENDIF 
A(I,I)=A(I,I)+1.0 

39  CONTINUE 

DO  49  K=N,1,-1 
DO  48  ITS=1,30 
DO  41  L=K,1,-1 
NM=L-1 

IF  ((DABS(RV1(L))+AN0RM) .EQ.ANORM)   GO  TO  2 

IF  ((DABS(W(NM))+ANORM).EQ.ANORM)   GOTOl 
il  CONTINUE  ^'^    i^    X 

1  C=0.0 
S  =  1.0 

DO  43  I=L,K 
F=S*RV1(I ) 

IF  ( (DABS(F)+ANORM) .NE.ANORM)  THEN 
G=W(I) 

H=SQRT(F*F+G*G) 

W(I)=H 

H=1.0/H 

C=  (G*H) 

S=-(F*H) 

DO  42  J=1,M 

Y=A(J,NM) 

Z=A(J,I) 

A(J,NM)=(Y*C)+(Z*S) 

A(J,I)=-(Y*S)+(Z*C) 

42  CONTINUE 
ENDIF 

43  CONTINUE 

2  Z=W(K) 
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IF  (L.EQ.K)  THEN 

IF  (Z.LT.0.0)  THEN 
W(K)=-Z 
DO  44  J=1,N 

V(J,K)=-V(J,K) 
44  CONTINUE 

ENDIF 
GO  TO  3 
ENDIF 

IF  (ITS.EQ.30)  PAUSE  'No  convergence  in  30  iterations' 

X=W(L) 

NM=K-1 

Y=W(NM) 

G=RV1(NM) 

H=RV1(K) 

F=( (y-Z)*(Y+Z)+(G-H)*(G+H) )/(2.0*H*Y) 

G=SQRT(F*F+1.0) 

F=((X-Z)*(X+Z)+H*( (y/(F+SIGN(G,F) ) )-H))/X 
C=1.0 

S  =  1.0 

DO  47  J=L,NM 

I=J  +  1 

G=RV1(I ) 

Y=W(I) 

H=S*G 

G=C*G 

Z=SQRT(F*F+H*H) 

RV1(J)=Z 

C=F/Z 

S  =  H/Z 

F=  (X*C)-l-(G*S) 

G=-(X*S)+(G*C) 

H  =  Y*S 

Y=Y*C 

DO  45  NM=1,N 

X=V(NM,J) 

Z=V(NM,I) 

V(NM,J)=  (X*C)+(Z*S) 

V(NM,I)=-(X*S)+(Z*C) 

45  CONTINUE 
Z=SQRT(F*F+H*H) 
W(J)=Z 

IF  (Z.NE.0.0)  THEN 

Z=1.0/Z 

C=F*Z 

S=H*Z 
ENDIF 

F=  (C*G)+(S*Y) 
X=-(S*G)+(C*y) 
DO  46  NM=1,M 

Y=A(NM, J) 

Z=A(NM,I) 

A(NM,J)=  (Y*C)+(Z*S) 

A(NM,I)=-(Y*S)+(Z*C) 

46  CONTINUE 

47  CONTINUE 
RV1(L)=0.0 
RV1(K)=F 
W(K)=X 

48  CONTINUE 


''>JW"' 
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3 
49 


CONTINUE 
CONTINUE 
RETURN 
END 


C***«****************************«*****************************«*****«**c 

c  c 

C  BACKSUBSTITUTE  TO  SOLVE  THE  SYSTEM  [A]{X}={B}  WHERE  THE  CV 

C  MATRICES  (Ul  [Wl  AND  (V)  ARE  PROVIDED  BY  THE  SINGULAR  ,  C 

C  VALUE  DECOMPOSITION  ROUTINE  "SCVCMP.FOR"  C 

C   .  ■   THE  SOLUTION  VECTOR  {X}  IS  EVALUATED  VIA  EQN . 2 . 9 . 7  IN  C 

C        "Numerical  Recipies".  C 

C  C 

(;«******««**«*«**************************«***«*******««*****************c 
C 

SUBROUTINE  SVBKSB (U, W, V,  M, N, MP , NP , B, X ) 
i     PARAMETER  (NMAX=100) 

i     IMPLICIT  DOUBLE  PRECISION ( A-H, 0-Z  ) 

i     DIMENSION  U(MP,NP),W(NP) ,V(NP,NP) ,B(MP) ,X(NP) ,TMP(NMAX) 
DO  12  J=1,N 
S  =  0. 

IF(W( J) .NE.O. )THEN 
DO  11  1=1, M 

S=S+U(I, J)*B(I ) 

11  CONTINUE 
S=S/W(J)        i 

ENDIF 
TMP(J)=S     • 

12  CONTINUE 

DO  14  J=1,N 
S  =  0. 
DO  13  JJ=1,N 

S=S+V(J,JJ)*TMP(JJ) 

13  CONTINUE 
X(J)=S 

14  CONTINUE 
RETURN 
END 

C  C 

C**************************  END  OF  SVD  ****************************** **«*«**c 

c  ,  ,.  .   ..  C 
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APPENDIX  B 

HYBRID  CVBEM  FORTRAN  PROGRAM  FOR 

DOUBLY  CONNECTED  DOMAINS 


1--  --- 


c*** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C    " 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 


******************************************************************** 
PROGRAM  NAME:  CVD6-M.F0R 


THIS  PROGRAM  USES  THE  IMPLICIT/EXPLICIT  METHOD  OF  SOLUTION  IN  THE 
COMPLEX  VARIABLE  BOUNDARY  ELEMENT  METHOD  FOR  DOUBLY  CONNECTED 
DOMAINS 

==>   ACCOUNTS  FOR  FLUX  BOUNDARY  CONDITIONS,  AND  ACCOUNTS 

FOR  CASES  WHERE  THE  SOURCE  TERM  IS  UNKNOWN  (SEE  BOUNDARY 
CONDITIONC  TABLE  IN  ALAIN'S  NOTES  PG.57). 

==>   USES  THE  DOUBLY  CONNECTED  NODAL  EQUATIONS  DEVELOPED  IN  THE 
PAPER  A.J.KASSAB  &    C.K.HSIEH  "APPLICATION  OF  THE  CVBEM  TO 
HEAT  CONDUCTION  PROBLEMS,"  INT.  J.  OF  NUM.  METHODS 
THESE  EQUATIONS  ARE  OF  THE  FORM  OF  EQUATION  4-22  ON 
PAGE  189  OF  HROMADKA  II,T.V,"THE  CVBEM  IN  ENGINEERING  ANALYSIS' 

THE  INPUT   IS  READ  FROM  THE  FILE   "D : CAUCHY . DAT" 
THE  OUTPUT  IS  PRINTED  TO  THE  FILE  "D : CAUCHY . ANS" 

INPUT  FORMAT: 


MNOD,NNOD,Q, ICHQ, ICHMAT, ICHLOAD 

X(1),Y(1),KTYPE(1),RIN1(1),RIN2(1) 

X(2),Y(2),KTYPE(2),RIN1(2),RIN2(2) 


X(M),Y{M),KTYPE(M),RIN1(M) ,RIN2(M) 


ROWl 
R0W2 
R0W3 


ROWM 


WHERE, 


MNOD 


NNOD 


RK 
ICHQ 


=NUMBER  OF  THE  LAST  'NODE  ON  THE  OUTER 
BOUNDARY,  RIGHT  BELOW  THE  BRANCH  CUT 

=NUMBER  OF  THE  LAST  NODE  ON  THE  INNER 
BOUNDARY,  RIGHT  ABOVE  THE  BRANCH  CUT; 
ALSO, TOTAL  NUMBER  OF  NODES  ON  THE  BOUNDARY 


=TOTAL  RATE  OF  HEAT  FLOW  ACROSS  THE  INTERIOR 
OR  EXTERIOR  BOUNDARY 

=THERMAL  CONDUCTIVITY  OF  THE  MEDIUM 

=1  IF  THE  TOTAL  HEAT  FLOW  RATE  Q  IS  UNKNOWN 

HERE  Q  IS  SET  TO  1  ON  INPUT  LINE  1 
=2  IF  THE  TOTAL  HEAT  FLOW  RATE  Q  IS  KNOWN 
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c 
c 
c 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c** 


ICHMAT 

ICHLOAD 

X(I),Y(I) 
KTYPEd  ) 

RINl(I) 
RIN2(I) 


HERE  Q  IS  GIVEN  ON  INPUT  LINE  1 
=COEtFlCIENT  MATRIX  OUTPUT  CHOICE 
0-NO  OUTPUT  1-OUTPUT 

=OUTPUT  CHOICE  TO  ECHO  EQN  LOADING  PROCEDURE 
0-NO  OUTPUT  1-OUTPUT 

=COORDINATES  OF  NODE  I 

=1  IF  PHI  SPECIFIED  AT  I  1st  KIND  BC 
=  2  IF  q/k  SPECIFIED  AT  I  2ncl  KIND  BC 
=3  IF  H=h/k  SPECIFIED  AT  I   3rd  KIND  BC 


=PHI,0,H 
=0,q/k,PHIINF 


IF  KTYPE=1,2,3 
IF  KTYPE=1,2,3 


C 
C. 

C 


c 

C. 

c 


===>  THIS  PROGRAM  USES  THE  ROUTINE  "SVD"  SINGULAR 
VALUE  DECOMPOSITION  EQUATION  SOLVER  IN 
REAL*8  ARITHMETIC  IF  NECESSARY  I.E.  K(A)  >  l.E+08 

===>  MATRIX  STATISTICS  ARE  COMPUTED  AND  OUTPUT  IS  GIVEN 
FOR  THE  MATRIX  NORM  AND  CONDITIONING  NUMBER. 
THE  L-INFINITY  NORM  IS  USED  FOR  K{A)  FORM  INVDET 
AND  L-2  NORM  IS  USED  FOR  K(A)  FOM  SVD  ALGORITHM. 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN=4 8) 
INTEGER  IV(NN) ,TDIM,ADIM, lER 

DIMENSION  XX(NN),CC(NN),W(NN),U(NN,NN),V(NN,NN) 
COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN ) , RI N2 ( NN ) , P ( NM, NN ) , 
$S (NN), ANGLE (NN)  '    ' 

COMMON/INOUT/ICHQ, ILOAD 
C0MM0N/CHKEQN/CHK1,CHK2 
COMMON  PI,TWOPI 
DIMENSION  REX(NN),REY(NN) 


.COMPUTE  PI 

PI=DACOS(-1.D+01 
TWOPI=2.D+0*PI 
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..INPUT/OUTPUT  DATA  FILES  AND  READ  IN  DATA 

OPEN ( 8 , FILE= ' D : CAUCH Y . DAT ' ) 
OPEN ( 9 , FILE= ' D : CAUCHY . ANS ' ) 

READ ( 8 , * )  MNOD, NNOD , Q, I CHQ , I CHMAT, I LOAD 

WRITEO,  52)  MNOD, NNOD, Q,  ICHQ,  ICHMAT 

WRITE(6,52)  MNOD,NNOD,Q, ICHQ, ICHMAT 

FORMATdX,  •=  =  =  =  >  CORRECT  VERSION  OF  4-22  FOR  DOUBBLY  CONNECTED' 
$'  DOMAINS", //6X, 'EXPLICIT/IMPLICIT  METHOD  :CVD62.FOR'  // 
$6X, '-TOTAL  HEAT  FLOW  RATE  "Q"  CAN  BE  UNKNOWN ',/, 6X, ' -HEAT  FLUX • 
S'  "q"  IS  INPUT  FOR  B.C.  OF  THE  SECOND  KIND',/, 
$'-FILM  COEFF  "H,  TINF  "  INPUT  FOR  THE  ROBIN  TYPE  B  C  '  // 
$//, IX, 'NUMBER  OF  LAST  OUTER  NODE        =',  '   ' 

$13,/, IX, 'NUMBER  OF  LAST  INNER  NODE         =',I3  /  IX 
$• [TOTAL  HEAT  FLOWl/IUNIT  DEPTH*k 1 = ' , DIO . 4/, IX, 'FLOw' RATE  CASE', 
?•  N0=' ,13, /IX,  'MATRIX  OUTPUT  CHOICE= ' , I  3 , 2X,  ' =  =  >  0-NO  OUTPUT  ', 
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f"i^!^  :        $■  ;  1-MATRIX  OUTPUT'  /) 
■'*  DO  1    I  =  1,NN0D 

7    READ(8,*)  X(I),Y{I),KTYPE(I),RIN1(I),RIN2(I) 
C 

r     c CALL  SUBROUTINE  ANGLE  TO  COMPUTE  THE  ANGLES  BETWEEN  THE  NODES 

C      THIS  IS  THE  ANGLE  USED  IN  COMPUTING  THE  TERM  OUTSIDE  THE 
C,     SUMMATION  SIGN  IN  EQN .  4-22 
.  \c"i- 

'    CALL  CANGLE(MNOD,NNOD)  ...-^,. 

C OUTPUT  PROBLEM  SET  UP  AND  GEOMETRY  •   ' 

WRITE (6,*) 
WRITE(9,10) 
'  ■  WRITEC6,10) 

10    FORMAT (IX/' RESULTS  FROM  EXPLICIT/ IMPLICIT  CVBEM  ', 
S'PROGRAM  CVD6-M.F0R' ,// 

$20X,  'NODAL  GEOMETRY  AND  INPUT  VALUES',//,  ■  •■ 

$3X,  •N0DE',7X,  'X(I)  ',8X,  'Y(I)  ',3X,  'KTYPE(I)  ' ,3X, 
(   $'RIN1(I) ',5X, 'RIN2(I) •,7X, 'ANGLE(I) ',/,4X, 'NO. ' ,22X,  "wt'^ 

$'l=T;2=q/k;3=INV',/32X, '4=h/k,TINF',/)  ;^- 

iV;,       ;    DO  20  I  =  1,NN0D  .  '  \ 

"'.  '    IF(I  .EQ.MNOD  +  1)  WRITE(*,*) 

IF(I -EQ.MNOD  +  l)  WRITEO,*) 
*:.  WRITE(6,8)  I,X(I),Y(I),KTYPE(I  ),RIN1(I),RIN2(I), 

SANGLEd  )*180.D  +  0/PI 
20    WRITEO, 8)  I,X(I),Y(I),KTYPE(I),RIN1CI),RIN2(I  ), 

$ANGLE(I )*180.D+0/PI  V? 

8     F0RMAT(2X,I3,2X,2(D12.5,1X),I3,3X,2(D12.5,1X),F12.2)  ■.,-■3 

''■  ■      c  ■  .     '  ■;■ 

C      PREPARE  GLOBAL  MATRICES  ''.ii" 

ij..'        C.-  /'v 

C ZERO   ARRAYS  ,' .  ; 

c  '  - 

WRITE (6,*) 
.;':       ■      WRITE(6,*)  '  ZEROING  ARRAYS' 
•^  DO  5  1=1,  NN 

5  S(I)=0.D+0 
DO  6  1=1, NN 
DO  6  J=1,NN 

6  P(I,J)=O.D+0 
C 
C*******«**«***«******  PERFORM  MATRIX  LOADING  ************************* **«*C 

C 

C EQUATION  LOADING  CONVENTIONS  C 

',  '     C 

C LOAD  PHI  AND  PSI  EQUATION  FOR  EACH  NODE  "J"  WHERE  J  =  1,...NN0D 

C      DEPENDING  ON  THE  VALUE  OF  KTYPE(J):  —  •  ; 

C 

C  KTYPE(J)=1     PHI  IS  GIVEN  @  NODE  J    : 

/     C-  ■ 

C  -USE  PSI  EQUATION  IMPLICITLY 

C  -USE  PHI  EQUATION  EXPLICITLY 

■     C  KTYPE(J)=2     q/k  IS  GIVEN  @  NODE  J      :  ',.  . 

C  •'                             -USE  PHI  EQUATION  IMPLICITLY 

C  -USE  PSI  EQUATION  EXPLICITLY  FOR  OUTER 

C  NODES  1<=J<=MN0D  BY  COMPUTING  PSI  EXPLICITLY 

C  ,            .    FROM  BC  RELATION  W/  PSI(l)=O.D+0  BY 

C  '                CONVENTION                                         ;  -  ■.  ■ 
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C  -USE  THE  IMPLICIT  PSI  NODAL  EQUATION 

C  Fur  node  HNOD+1  IF  KTYPE(J)=2  THERE 

C  -USE  CAUCHY  REIMANN  RELATION  FOR  NEUMANN  BC 

C  FOR  INNER  NODES  MN0D+2<=J<=NN0D 

C 

C  KTYPE(J)=3     H=h/k  IS  GIVEN  @  NODE  J      : 

C 

C  -USE  PHI  EQUATION  IMPLICITLY 

C  -USE  IMPLICIT  PSI  NODAL  EQUATION  AT 

C  NODES  J=l  &  MNOD+1 

C  -USE  CAUCHY  REIMANN  RELATION  FOR  ROBIN  BC 

C  AT  ALL  OTHER  NODES 

C 

C 

C NOTES  ON  BIG  PSI  C 

C 

C     -IN  THE  PROGRAM  BIG  PSI  IS  CALLED  "Q"  AND  ITS  HANDLING  DEPENDS  ON  THE 

C      VALUE  OF  ICHQ  ON  INPUT 

C     -IF  ICHQ=1  THEN  Q  IS  UNKNOWN  AND  HAS  BEEN  INPUT  AS  Q=l  FOR  THE   LOADER 

C      SUBROUTINE  CAUCHS  TO  COMPUTE  THE  COEFFICIENT. 

C     -SET  RIN2(1)=0  AND  THEN  AT  THE  END  OF  THE  LOADING  LOOP  INSERT  STPHI  OR 

C      STPSI  IN  THE  PLACE  OF  RN2(1)  I.E.  AT  MATRIX  ELEMENT  P ( NNOD+1 , NNOD+1) 

C 

C END  OF  EQUATION  LOADING  CONVENTIONS  C 

C 

C        IF  (ICHQ.EQ.l)  RIN2(l)=0.000D+0 

WRITE(6, *) 

WRITE(6,*)  'LOADING  IMPLICIT  EQUATIONS  IN  GLOBAL  MATRIX' 
C 

C BEGIN  LOADING  2xNN0D  NODAL  EQUATIONS  IN  GLOBAL  MATRIX 

C 

DO  1000  J=1,NN0D 
C 

C LOAD  IN  DIAGONAL  CONTRIBUTION  AT  "J"  FIRST  INTO  tP]  AND  {S} 

C        I.E.  THE  TERMS  OUTSIDE  THE  SUMMATION  INVOLVING  THE  IMMEDIATE 

C        NEIGHBOR  ELEMENTS  (J-1,J]  AND  [J,Jtl] 

C        TAKE  INTO  ACCOUNT  DOUBLY  CONNECTED  GEOMETRY 

C 

A=O.D+0 

B=O.D+0 

C=O.D+0 

D=0.D+0 

CHKPHI=O.D+0 

CHKPSI=O.D^■0 

CHKl=0.D+0 

CHK2=0.D+O 
C 

c 

WRITE(*,*) 

WRITE(*,*)  'LODING  NODAL  EQUATION  AT  NODE=',J 
C 

C DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 

C      FOR  THE  BRANCH  CUT  AT  THETA=0 
C 

I=J-1 

K=J  +  1 

IF(J.EQ.l)      I=MNOD 

IF( J.EQ.MNOD)   K=l 

IF(J.EQ.MN0D+1)I=NN0D 
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IF(J.EQ.NNOD)   K=MN0D+1 
C 
C 

IF(ILOAD.EQ.l)  WRITE(*,*)  •    CALLING  DIAGONAL  LOADER' 
C 

C COMPUTE  ANGLES  AND  COMPLEX  ALGEBRA 

C 

CALL  CAUCHl(MNOD,NNOD,J,I,K,A,B,C,D) 
C 

C LOAD  DIAGONAL  TERM  INTO  THE  MATRIX  EQUATION 

C 

CALL  CAUCH2(MN0D,NN0D,J,I,K,A,C,D) 
C 

C LOAD  IN  THE  REMANING  COUNTOUR  ELEMENT  CONTRIBUTIONS  I  E   THE 

C      TERMS  UNDER  THE  SUMMATION  SIGN  INVOLVING  ELEMENT  GAMMMA [ M  Nl 
C      WHERE  M=n  AND  N=n+1  IN  THE  NOTES 

C 

C      ACCOUNT  FOR  DOUBLY  CONNECTED  GEOMETERY 
C 

C      ALSO  SKIP  THE  CONTRIBUTIONS  OF  THE  DIRECT  NEIGHBORS , ELEMENTS 

C      [I,J)  AND  (J,K1,  THESE  HAVE  ALREADY  BEEN  LOADED  PRIOR  TO  THIS  LOOP. 

DO  500  N=1,NN0D 
C 

^ LOGIC  TO  COMPUTE  N  +  1  ACCOUNTING  FOR  BRANCH  CUT  AND  CIRCUIT  AROUND 

C      THE  DOUBLY  CONNECTED  DOMAIN 
C 

NP1=N+1 

IF(N.EQ.MNOD)  NP1=1 

IF(N.EQ.NNOD)  NP1=MN0D+1 
C SKIP  DIRECT  NEIGHBORING  ELEMENTS 

IF(N.EQ. J.OR.NPl.EQ. J)  GO  TO  500 
C COMPUTE  COMPLEX  ALGEBRA 

IF (ILOAD.EQ.l) WRITE (*,5C1)  N,NP1 
501     FORMATOX,  "CALLING  LOADER  FOR  GAMMA!  '  12  '  •  12  ']•) 

CALL  CAUCH1(MN0D,NN0D,J,N,NP1,A,B,C,D)   '  '  '   ' 
C LOAD  ELEMENT  CONTRIBUTION  INTO  MATRIX  EQUATION 

CALL  CAUCH2(MN0D,NN0D,J,N,NP1,A,C,D) 
500     CONTINUE 

C COMPUTE  CONTRIBUTIONS  DUES  TO  SOURCES/SINKS  :  STPHI  &    STPSI 

XO=X(J) 

YO=Y(J) 

STPHI=0.D+O 

STPSI=O.D+0 
C 

C CHECK  IF  Q  IS  INPUT  AS  KNOWN  OR  UNKNOWN 

C      IF  Q  IS  INPUT  AS  KNOWN  AND  EQUAL  TO  ZERO 

C      THEN  SKIP  SOURCE  TERM  CONTRIBUTIONS 

C 

IF(ICHQ.NE.l.AND.Q.EQ.O.D+0)  GO  TO  2555 
CALL  CAUCHS(J,MNOD,NNOD,Q,STPHI,STPSI,XO,yO) 

V* 

C ACCOUNT  FOR  Q  POSSIBLY  BEING  UNKNOWN 

C 

IF(ICHQ.EQ.l)  THEN 
C 

C ICH  =  1  THEN  Q  IS  UNKNOWN 

C        REPLACE  PSI  COEFFICIENT  BY  SOURCE  TERM  COEFFCIENT  IN 

C        THE  J-TH  PHI  NODAL  EQUATION  NO  MATTER  THE  B.C.  1-3  SINCE  THE  EXPLICIT 

C        OR  IMPLICIT  PHI  NODAL  EQUATION  IS  ALWAYS  LOADED  AT  NODE  J 
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t' 


c 

c. . 
C  i 

c;. 

c 

c 

c 

c 

c 

c 

c 

c 


P(J,NNOD+i)=STPHI 

REPLACE  PSI  COEFFICIENT  BY  SOURCE  TERM  COEFFICIENT  IN 
•?Se  5™-TH  PSI  NODAL  EQUATION  IF  IT  IS  LOADED  I.E. 


C 
C. 

c 
c 

c 

c. 

c 


1-  KTYPE{J1=1  B.C.  OF  FIRST  KIND  AND  IMPLICIT  PSI  EQ^  IS  LOADED 
2   KTYpI  J  =2  AND  1<=J<=MN0D  THEN  PSI  IS  COMPUTED  W/  PSI  1)=0 
^ND  EXPLICIT  FORM  OF  PSI  NODAL  EQUATION  IS  LOADED  AT  J+NMOD 

3-  KT?pim=2  AND  J=MNOD.l  THEN  IMPLICIT  PSI  EQUATION  IS  LOADED 

4-  5TYPE(a,=rAr;  =  l  OR  MNOD.l  THEN  EXPLICIT  OR  IMPLICT  PSI 
EQUATION  IS  LOADED 

1F(KTYPE(J) .EQ.l)  P(J+NN0D,NN0D+1)=STPSI 
if!(J  g1.1.AND.J.LE.MN0D).AND.(KTYPECJ).EQ.2)) 

'''i;';rErS5oirifANi.KTYPE(J).EQ.2)  P(a.NNOD,NNOD.l)=STPSI 
TP  T  EO  i  AND  KTYPE(J).EQ.3)  P ( J tNNOD, NNOD+1 ) =STPSI 

F  jlS'iNoS'i  AND.KTYPE(J).EQ.3)  P  (  J.NNOD,NNOD.l )  =STPSI 
WRITE!*,*)  'REPLACE  LITTLE  PSI  BY  BIG  PSI ' 
ELSE 

Tr-u<-M  THFN  O  IS  GIVEN  AS  INPUT 
■••'aS  SOU™TERM  TO  THE  RHS  OF  THE  PHI  NODAL  EQUATION 


S(J)=S(J)-STPHI 
.ADD  SOURCE  TERM  TO  THE  RHS  OF  THE  PSI  NODAL  EQUATION  IF  IT  IS  LOADED 


C 

C. 

C 

c. 
c 


IF  (KTYPE(J).EQ.l)  S ( J+NNOD ) =S ( J+NNOD ) -STPSI 
IF(U  GE  l.AND  J.LE.MN0D.1).AND.(KTYPE(J).EQ.2)) 

5S(^lNfD)=S(J.NN0D)-STPSI        g  ^  j,,^,oD  )  =S  (  J.NNOD  ) -STPSI 

'iFiaiiQ'.MNOD.l  AND:iTipE(a).EQ.3)  S  (  a.NNOD  ,  =S  (  ..NNOD  ) -STPSI 
END  IF 
....FINISHED  LOADING  IN  THE  TWO  NODAL  AND/OR  B.C.  EQUATIONS 
CHECK  LOADED  COEFFICIENTS  C 


2555 


2500 


DO  2500  KT=1,2*NN0D 
JJ=J+NN0D 

CHKPHI=CHKPHI+P(J,KT) 
CHKPSI =CHKPS I +P { J J  ,  KT ) 
CONTINUE 


10 
C 

c** 
c 
c= 
c 


00 


IF(KTYPE( J) 
WRITEC*,*) 
WRITE(*,*) 
END  IF 
IF(KTYPE(J) 
WRITE(*,*) 
WRITE (*,*) 
END  IF 
CONTINUE 


EQ.l)  THEN 

CHKPSI  IMPLICIT=0 

CHKPHI  EXPLICIT=1 

,EQ.2)  THEN 
'CHKPHI  IMPLICIT=0 
'CHKPSI  EXPLICIT=1 


, CHKPSI, CHK2 
' , CHKPHI, CHKl 

• , CHKPHI, CHKl 
• , CHKPSI, CHK2 


*******************  FINISHED  MATRIX  LOADING  * ******************C 


=  =  ==C 


i^:' 
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C*****«***************  PERFORM  SOLUTION  PHASE   *******************C 

C      GET  READY  TO  CALL  SINGLE  VALUE  DECOMPOSITION  SIMULTANEOUS 

C EQUATION  SOLVER.  FIRST  SET  PARAMETERS 

C 

C THEN  OUTPUT  FORCING  VECTOR  MATRIX  tPl  AND  FORCING  VECTOR  (S) 

c"    IN  THE  IMPLICIT  FORMULATION: 

C 

C  [P]{PHI,PSI}=(S}    EQN  4.22 

C IF  THE  INPUT  CHOICE  ICHMAT=0  THEN  SKIP  MATRIX  EQNS  OUTPUT 

C 

IMAX=2*NN0D 

N=IMAX 

IF(ICHMAT.EQ.O)  THEN 

WRITE(*,250) 
250   FORMATdX,/,  '  MATRIX  EQUATION  OUTPUT  SUPRESSED  BY  ICHMAT=0',/) 

GO  TO  1555 

ELSE 
C 
C IF  THE  INPUT  CHOICE  ICHMAT  =  1  THEN  OUTPUT  MATRIX  RQNS  VIA  MATOUT 

C CALL  MATOUT(AA,BB,IMAX) 

C 

CALL  MATOUT(P,S,IMAX) 

END  IF 

C 

C CALL  INVDET  AND  ATTEMPT  TO  COMPUTE  THE  CONDITIONING  NUMBER 

C 
1555    DO  1500  I=1,IMAX 
DO  1500  J=1,IMAX 
1500    U(I,J)=P(I,J) 
DTNRM=0.D+0 
DETM=0 .D+0 

WRITE(*,*)  '  CALLING  INVDET' 
CALL  INVDET(U,DTNRM,DETM) 

C 

C COMPUTE  L-INFINITY  NORMS  OF  THE  MATRIX  [P]  AND  ITS  INVERSE 

C  -1 

C  [PI    (RETURNED  BY  INVDET  AND  STORED  AS  [ AA ] )  AND  COMPUTE 
C  1  I  1  -II 

C  THE  CONDITIONING  NUMBER  OF  THE  MATRIX  [PI  AS  K(P)=IPI*1P   I 

C 

RNORMA=0.D+0 

RNRMAI=0.D+0 

DO  2150  I=1,IMAX 

STOl=0.D+0 

STO2=0.D+0 

DO  2100  J=1,IMAX 

ST01=ST0l+DABS(U(I,J) ) 
2100    ST02=ST02+DABS(P(I,J) ) 

RNRMAI =DMAX1 ( RNRMAI , STOl ) 
2150    RN0RMA=DMAX1(RN0RMA,ST02) 

WRI TE ( * , 2 15  5 ) RNORMA , RNRMAI 

WRITE ( 9 , 215  5 ) RNORMA, RNRMAI 
2155    FORMATdX,//, IX,  'MATRIX  STATISTICS  :',/,  IX  , 

5. •,/,lX,'NORM  [Al   =' ,D10.4,/,9X,  '-1',/1X, 

S'NORM  [A)   =',D10.4) 

COND=RNORMA*RNRMAI 

WRITE(*,2200)  DTNRM,COND 


148 


WRITE(9,2200)  DTNRM,COND  _  ,  ^, „  .  ,„  . horNEBECK ' 

FROM  LOADING  ON  DOWN  TO  FINAL  NODAL  ASSIGNMENTS 

DO  2300  I=1,IMAX 

STO=0 .D+0 

DO  2350  J=1,IMAX 

STO=STO+U(I, J)*S(J) 

REX{I)=STO 

CONTINUE 

.CHECK  CONDITIONING  NUMBER:   K  <  Jj  5  =  5;-/,^,    lllloll^foT.Col'lr.H 

WRITE(*,3000) 

WRITE ( 9  3000 ) 

FORMAT(lx,//, IX, -CHECK  CONDITINING  NUMBER :',/, 25X, 
S'K(A)<=1.0D+12    SKIP  SVD  ALGORITHM ',/, 2 5X , 
$'K(A)>  l.OD+12    PERFORM  SVD  ALGORITHM',//) 

SVDEPS=1.0D+12 

IF(COND.LE.SVDEPS)  THEN 

WRITE(*,*)  'SKIPPED  SVD' 

WRITE(9,*)  'SKIPPED  SVD' 

ICHALG=1 

GO  TO  4000 

ELSE 

ICHALG=0 

ENDIF 

..SET  FORCING  VECTOR  AND  MATRIX   TO  BE  SENT  TO  SOLVER 
..CALL  SIMULTANEOUS  EQUATION  SOLVER  :  DSOLVE 

WRITE (6  * ) 

WRITECe',*)  'CALLING  SVD  SIM.EQN.  SOLVER' 

CALL  SVD(P,S,XX,NN,CC,U,V,W) 

COMPUTE  S  PRINT  RESIDUAL  VECTOR.  NOTE  THAT  THE  SOLUTION  FROM 
"iNVDET  IS  NOW  STORED  IN  VECTOR  RNl(NN) 

10    WRITE(6,656) 

$18X,'CHK  SOLN  W/',2X,'S0LN  FROM  SVD ' , / , 3X  ' I ' , 3X,  RESIDUAL  , 
S6X  'INVDET', 4X, 'SIM.EQN  SOLVER ',/,  2X, '  —  ',  2X,  —  ,faX, 
$■_: .,4X,' ') 

....IF  SVD  WAS  SKIPPED  SET  SOLUTION  EQUAL  TO  GAUSS  ELIMINATION  SOLN 

IF(ICHALG.EQ.l)  THEN 
DO  4500  1=1, N 
00    XX(I)=REX(I) 
END  IF 


DO  658  1=1, N 
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■4  >w      RES  =  S(I) 

DO  657  3=1, N 
S57     RES=RES-P(I, J)*XX( J) 

WRITE(9,659)  I , RES ,REX ( I ) , XX ( I ) 
658     WRITE(6,659)  I ,RES,REX ( I ) , XX ( I ) 

6  59     FORMAT (IX,  '  I  ',I3,3(  '  I  ',D10.4,1X,  •  I  '  ) ) 
C 

C SET  {S}  EQUAL  TO  SOLUTION 

C 

DO  670  1=1, N 
670     S(I)=XX(I) 
C 

C**«******«*«*******  FINISHED  SOLUTION  COMPUTATION  PHASE  ****************c 
C 

C ASSIGN  BOUNDARY  NODAL  POINT  VALUES  FROM  SOLUTION 

C      AND  ACCOUNT  FOR  Q  BEING  UNKNOWN 
C 

DO  7010  I=1,NN0D 

IF(KTYPE(I ) .EQ.2)  GO  TO  7015 

IFCKTYPEd  )  .EQ.3)  GO  TO  7025 
C 

C NODAL  UNKNOWN  IS  PSI  =  =  >  KTYPE(I)=1 

C 

REXd  )=RIN1(I  ) 

REY{I)=S(I+NN0D) 

GO  TO  7010 
C 

C NODAL  UNKNOWN  IS  PHI  =  =  >  KTYPE(I)=2 

C 
7015    REX(I)=S(I) 

REYd  )=S(I+NNOD) 

GO  TO  7010 
C 

C NODAL  UNKNOWNS  ARE  PHI  AND  PSI  -^>  KTYPE(I)=3 

C        H=h/k  SPECIFIED  THERE 
C 
7025    REX(I)=S(I) 

REYd  )=S(I+NNOD) 
C 
C 

7  010    CONTINUE 
C 

C 

C ACCOUNT  FOR  Q  BEING  POSSIBLY  UNKNOWN 

C 

IFdCHQ.EQ.l)  THEN 

Q=S(NN0D+1) 

REY(l)=0.D+0 

END  IF 
C  •  • 

C 

C OUTPUT  RESULTS 

C 

WRITE(6,*) 

WRITE(G,*)  'OUTPUT  RESULTS' 

CALL  CAUCH4(MN0D,NN0D,Q,REX,REY) 
C 

C COMPUTE  THE  RELATIVE  ERROR  e(J)  AT  THE  BOUNDARY  NODES 

C 

WRITE (6,*) 
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WRITE (6,*)  'COMPUTE  RELATIVE  ERROR' 
CALL  HOMI (REX,K£Y,hNOD,NNOD,Q) 
C 

C GIVE  OPTION  OF  WRITING  DATA  FILE  FOR  POST  PROCESSING 

C 

WRITE{*,800) 
800     F0RMAT(1X,//,1X, 'DO  YOU  WANT  TO  SAVE  NODAL  VALUES  AND', 
$'  LOCATIONS  FOR  POSTPROCESSING  ?',/, IX, ' ENTER  CHOICE:', 
$•  1-TO  SAVE' ,/,15X, ' 0-NOT  TO  SAVE') 
READ(*,*)  ICH 
IF(ICH.EQ.O)  STOP 
CLOSE  (9) 
CLOSE  (8) 

0PEN(9,FILE='D:P0ST.DAT' ) 
WRITE(9,*)  MN0D,NN0D,Q 
DO  810  1=1, NN 
810     WRITEO,*)  X(I),Y{I),REX(I),REY(I  ) 
820     F0RMAT(4(1X,D15.9)  ) 
STOP 
END 
C 
0=====================  ELEMENT  LOADING  SUBROUTINE  ================C 

C 

r  ********  It  **************  if  ****************  -k  ****************  t  *  *  *  K  *  *  *  Q 

C 

C  THIS  SUBROUTINE  LOADS  THE  ELEMENT  CONTRIBUTIONS 

C  INTO  THE  GLOBAL  MATRIX  EQUATION.  HERE  THE  PORTION  OF 

C  THE  EQUATION  @  THE  NODE  "J"  IS  LOADED. 

C  THE  ELEMENT  (M,N)  IS  LOADED  WHERE  N=M+1 

C  ■  IF  M=J-1  OR  N=J+1  THEN  THE  ELEMENT  IS  THE  LOGARITHMIC 

C  LIMITING  VALUE 

C 

c*****************************************************************c 
c 

SUBROUTINE  CAUCH2  (  MNOD,  NNOD, J , M, N , A, C, D ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER(NN=48) 

C0MM0N/BLK/X(NN),Y(NN),KTyPE(NN),RINl(NN),RIN2(NN),P(NN,NN), 
$S(NN) ,ANGLE(NN) 

C0MM0N/CHKEQN/CHK1,CHK2 

COMMON/INOUT/ICHQ, ILOAD 

COMMON  PI,TWOPI 
C 

C      THIS  SUBROUTINE  ASSEMBLES  THE  ELEMENTS  IN  THE  GLOBAL  MATRIX 
C      "P"  WITH  VECTORS  OF  CONSTANTS,  "S".  THAT  IS  IT  LOADS  AT  EACH 
C      NODE  "J"  TWO  EQUATIONS :-@LINE  "J"  IT  LOADS  THE  IMPLICIT  OR 
C  EXPLICIT  FORMULATION  OF  THE  HI  APPROXIMATION 

C  OF  THE  CAUCHY  INTEGRAL 

C  -@LINE  "J+MNOD"  IT  LOADS  THE  CORRESPONDING 

C  EXPLICIT  OR  IMPLICIT  FORMULATION  OF  THE  HI 

C  APPROXIMATION  OF  THE  CAUCHY  INTEGRAL  OR 

C  BOUNDARY  CONDITION  EXPRESSION 

C 
C 

C SET  RK  =  1.0  SINCE  q/k  IS  INPUT 

C 

RK=1.0D+0 
C 

C DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 

C      FOR  THE  BRANCH  CUT  AT  THETA=0 
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c 

JPl=Jvl 

JM1=J-1 

IF(J.EQ.l)      JM1=MN0D 

IF( J.EQ.MNOD)   JP1=1 

IF ( J . EQ . MNOD+1 ) JM1=NN0D 

IF(J.EQ.NNOD)   JP1=MN0D+1 
C 

C COMPUTE  NEIGHBORING  POINTS  AND  CHECK  IF  THEY  ARE  THE  DIRECT 

C      NEIGHBORS  OF  "J"   .  IF  THEY  ARE  THEN  LOAD  IN  LIMIT  TERMS 
C      (TERMS  OUTSIDE  THE  SUMMATION  IN  THE  PHI  AND  PSI  EQUATIONS) 
C 

IF(M.EQ.JM1.0R.N.EQ. JPl)  GO  TO  100 
C 

c 

C COMPUTE  THE  CONSTANTS  USED  IN  THE  SUMMATION  TERM 

C 

c 

IF(ILOAD.EQ.l)  WRITE(*,10  00)J,M,N 
1000    FORMAT('       LOADING  SUMMATION  TERM[J,M,N1  •,3(1X,I3)) 

C COMPUTE  CONSTANTS  AND  COEFFICIENTS 

C 

C1=(X(J)-X(M) )*C-(Y(J)-Y(M) )*D 
C2=(X(J)-X(M) )*Df (Y(J)-Y(M) ) *C 
C3=(X(J)-X(N) )*C-(Y(J)-Y(N) )*D 
C4=(X(J)-X(N) )*D+(Y{J)-Y(N) )*C 
G1=-C3/TW0PI 
G2=C1/TW0PI 
G3=-C4/TW0PI 
G4=C2/TW0PI 
C 

0========  CHECK  THE  TYPE  OF  BOUNDARY  CONDITION  AND  LOAD  EQUATIONS  =======0 

C 

C LOAD  THE  SUMMATION  TERM  CONTRIBUTION  INTO  [P]  AND  {S}  FOR 

C      ELEMENT  [M,N)  , WHERE  M  AND  N  NOT  EQUAL  TO  J  AND  N=M+1 

C      ACCORDING  TO  A  POSITIVE  COUNTERCLOCKWISE  NUMBERING  CONVENTION 

C 

IF(KTYPE(J) .EQ.2)  GO  TO  5 
IF{KTYPE( J) .EQ. 3)  GO  TO  7 
C 

C*********  STATE  VARIABLE  IS  SPECIFIED  AT  NODE  "J"  ,  KTYPE(J)=1  *******«c 

C 

C      1.  LOAD  THE  IMPLICIT  FORM  OF  THE  HI  APPROXIMATION  FOR  PSI 

C        AT  ROW:  JJ=J+NNOD 

C 

JJ=J+NNOD 

P( JJ,M+NNOD)=P( JJ,M+NN0D)+G3 

P ( J J , N+NNOD ) =P ( J J , N  +  NNOD ) +G4 

P(JJ,M)=P(JJ,M)-G1 

P(JJ,N)=P(JJ,N)-G2 

CHK2=CHK2+G3+G4-G1-G2 
C 
C 

C      2.  LOAD  THE  EXPLICIT  FORM  OF  THE  HI  APPROXIMATION  FOR  PHI 

C         AT  ROW:  JJ=J 

C 

JJ=J 

P(JJ,M+NN0D)=P(JJ,M+NN0D)+G1 
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P(JJ,N+NN0D)=P(JJ,NtNN0D)+G2 

P(JJ,M)=F(JJ,M)  i-G3 
P(JJ,N)=P(JJ,N)+G4 
CHK1=CHK1+G1+G2+G3+G4 

GO  TO  200 
C FINISHED  LOADING  GAMMAIM,N1  FOR  NODE  "J"  &  KTYPE(J)=1  =>RETURN 

C 

5       CONTINUE 

C*********  THE  FLUX  q/k  IS  SPECIFIED  AT  NODE  "J"  ,  KTYPE(J)=2  *******C 

C      1.  LOAD  THE  IMPLICIT  FORM  OF  THE  HI  APPROXIMATION  FOR  PHI 
C         AT  ROW:  JJ=J 

C 

JJ=J 

P ( J J , M+NNOD ) =P ( J J , M+NNOD ) +G1 

P(JJ,N+NN0D)=P(JJ,N+NN0D)+G2 

P(JJ,H)=P(JJ,M)+G3 

P(JJ,N)=P(JJ,N)+G4 

CHK1=CHK1+G1+G2+G3+G4 

C 

C      2.  LOAD  THE  PSI  NODAL  OR  DERIVED  NEUMANN  BOUNDARY  EQUATION 
C       *  AT  ROW:  JJ=J+NNOD 

C 

JJ=J+NNOD 

r      TF  1<-J<=MN0D  THEN  PSI  IS  COMPUTED  FORM  PROCESSING  OF  q/k  DATA 
l'---    Z    COnJenS  that  PSI(1)=0  THEN  LOAD  EXPLICIT  PSI  NODAL  EQUATION 

'^  .n.  Mnntr  T-MNnn  +  l  LOAD  IMPLICIT  PSI  NODAL  EQUATION  TO  ANCHOR  THE 

I ^?,EaS  FUnSS;  (aSSJd  CIRcSlAR  DEFINTION  FROM  PURE  BC  LOADING) 

°        IFCJ.GE.l.AND.J.LE.MNOD  +  DTHEN 
p ( JJ, M+NNOD )=P( J J, M+NNOD )+G3 
P(JJ,N+NN0D)=P(JJ,N+NN0D)+G4 
P(JJ,M)=P(JJ,M)-G1 
P(JJ,N)=P(JJ,N)-G2 
CHK2=CHK2+G3+G4-G1-G2 

GO  TO  200 
ELSE 

?     IF  MN0D+1<J<=NN0D  LOAD  NEUMANN  B.C.  EQN.18  INTO  THE  MATRIX  , 
C     INNER  PSI'S  CANNOT  BE  OBTAINED  EXPLICITLY 


C 


GO  TO  200 
END  IF 


C FINISHED  LOADING  GAMMA[M,N1  FOR  NODE  "J"  &  KTYPE(J)=2  =>RETURN 

6  CONTINUE 

C*********  FILM  COEFFICIENT  H=h/k  IS  SPECIFIED  AT  NODE  "J"  ,  KTYPE(J)=3  ****C 

?      1.  LOAD  THE  IMPLICIT  FORM  OF  THE  HI  APPROXIMATION  FOR  PHI 
C         AT  ROW:  JJ=J 

C 

7  CONTINUE 

JJ=J 


\   ■■<"• 
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c 
c 
c 
c 

c. 

c 

c 

c 


c 

c. 
c 


c 

c. 

c 


P ( J J , M+NNOD ) =P ( J J , M+NNOD ) +G1 
P  (  JJ  ,  N+NNOD  )  =P  i  J  J  ,  NtNNOD  )  1-G2 
P(JJ,M)=P( JJ,M)+G3 
P( JJ,N)=P( JJ,N)+G4 
CHK1=CHK1+G1+G2+G3+G4 

2.  LOAD  THE  PSI  NODAL  OR  DERIVED  ROBIN  BOUNDARY  EQUATION 
AT  ROW  :  JJ=J+NNOD 

..AT  NODES  J=l  AND  MNOD+1  LOAD  EXPLICIT  OR  IMPLICIT  PSI  NODAL  EQUATION 
TO  ANCHOR  THE  STREAM  FUNCTION  (AVOID  CIRCULAR  DEFINTION  FROM 
PURE  BC  LOADING) 

JJ=J+NNOD 

IF ( J . EQ . 1 . OR . J . EQ . MNOD+1 ) THEN 

P(JJ,M+NNOD)=P(JJ, M+NNOD )+G3 

P(JJ,N+NNOD)=P( JJ,N+NN0D)+G4 

P(JJ,M)=P(JJ,M)-G1 

P(JJ,N)=P( JJ,N)-G2 

CHK2=CHK2+G3+G4-G1-G2 

GO  TO  200 

ELSE 

.FOR  ALL  OTHER  NODES  LOAD  ROBIN  B.C.  EQN.22  INTO  THE  MATRIX 

GO  TO  200 

END  IF 


.FINISHED  LOADING  GAMMAtM,N)  FOR  NODE  "J"  S  KTyPE{J)=3  =>RETURN 
GO  TO  200 


C 

C 

c 
c 
c 
c 
c 
c 
c 

c 

c 

c 

c 

100 

c 

c 

250 

c 
c 


BOUNDARY  ELEMENT  BEING  LOADED  CONTAINS 

NODE  "J"  I.E.  LOADING  CONTRIBUTIONS  OUTSIDE  THE 

SUMMATION 

OR  DERIVED  BOUNDARY  CONDITION  IS  BEING  LOADED  IN 


COMPUTE  CONSTANTS 

AZ=A/TWOPI 
BZ=(TWOPI-ANGLE( J) )/TWOPI 


IF(ILOAD.EQ.l)  WRITE(*,250)J,JM1,J,JP1 
FORMAT ( '       LOADING  DIAGONAL  TERMS  FOR  NODE', 13, 
$•   GAMMAd,  J,K]  '  ,3(1X,I3)  ) 


.C 
C 

c 
c 
c 

c 
c 

c 

.C 


c 

C*** 

C 

C 

c 


IF(KTYPE(J) .EQ.2)  GO  TO  110 
IF(KTYPE( J) .EQ.3)  GO  TO  130 

*********    PHI  IS  SPECIFIED  AT  NODE  "J"  ,  KTYPE(J)=1  *********** ***c 

1.  LOAD  IMPLICIT  FORMULATION  FOR  PSI  EQUATION  AT  ROW  JJ=J+NNOD 
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JJ=J+NNOD 

P(JJ,J)=P(JJ, J)-AZ 

P(JJ,JJ)=P(JJ, JJ)+(BZ-l.D+0) 

CHK2=CHK2-AZ+(BZ-l.D+0) 
C 

C      2.  LOAD  EXPLICIT  FORMULATION  FOR  PHI  EQUATION  AT  ROW  JJ=J 
C 

JJ=J 

P(JJ,JJ+NNOD)=P(JJ,  JJ+NNOD)+AZ 

P(JJ,J)=P( JJ, J)+BZ 

S(J)=S(J)+RIN1(J) 

CHK1=CHK1+BZ+AZ 

GO  TO  200 
C 

c 

C*********  THE  FLUX  "q/k"  IS  SPECIFIED  AT  NODE  "J"  ,  KTYPE(J)=2  «*«*****C 

C 

C      1.  LOAD  IMPLICIT  FORMULATION  FOR  PHI  EQUATION  AT  ROW  JJ=J 
C 
110     CONTINUE 

JJ  =  J 

P( JJ,JJ  +  NNOD)=P(JJ,  JJ  +  NNOD)+AZ 

P(JJ,JJ)=P( JJ, JJ)+(BZ-1 .D+0) 

CHKl=CHKl+AZ+(BZ-l.D+0) 

C 

C      2.  LOAD  BOUNDARY  EQN .  FORMULATION  FOR  PSI  EQUATION  AT  ROW  JJ=J+NNOD 

C 

C....IF  1<J<MN0D  THEN  USE  THE  NEUMANN  BOUNDARY  CONDITION  EQN. 18  TO  COMPUTE 
C     PSI(J+L)=PSICJ)-(k/2)*SUM[I  TO  L 1 (q( J+I ) +q( J+I -1 ) ) *ABS C Z ( J+I ) -Z ( J+I-1 ) ) 
C  •   SEE  AJK  AND  CKH, "APPLICATION  OF  CVBEM  TO  . . . " , INT. J .NUM.MTHDS .ENG. , 1989 

C 

IF(J.GE.l.AND.J.LE.MNOD)  THEN 

C 

C COMPUTE  THE  VALUE  OF  THE  STREAM  FUNCTION  EQN. 18-20  W/  THE  CONVENTION 

C     THAT  PSI (l)=O.D+0 
C 

IF(J.GT.l.AND.J.LE.MNOD)  THEN 

PSI=0.D+O 

L=J-1 

DO  300  1=1, L 
C 

C COMPUTE  DS  AND  SUMQ 

C 

DX=X(J+I )-X(J+I-l) 

Dy=Y(J+I)-Y( J+I-1) 

DXSQ=DX*DX 

DYSQ=DY*DY 

DS=DSQRT ( DXSQ+DYSQ ) 

SUMQ=RIN2(J+I)+RIN2( J+I-1) 
C 

C....ADD  TO  GET  PSI  VALUE  AT  NODE  J 
C 
300     PSI=PSI-SUMQ*DS 

PSI=PSI/C2.D+0*RK) 

ELSE 
C 

C J  =  l  THEN  PSI=0 

C 

PSI=O.D+0 

END  IF 


>-'  - 
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WRITE(*,*)  'COMPUTED  PSI=',PSI 
C 

C LOAD  THE  EXPLICIT  FORM  OF  PSI  AT  NODE  JJ  =  J+MNOD 

C 

JJ=J+NNOD 

P( JJ,JJ)=P(JJ, JJ)+BZ 

P(JJ, J)=P(JJ,J)-AZ 

S( JJ)=S( JJ) +PSI 

CHK2=CHK2-AZ+BZ 

GO  TO  200 

END  IF 


c 
c 

c 


IF( J.EQ.MNOD+1)  THEN 


C....LOAD  IMPLICIT  FORMULATION  FOR  PSI  EQUATION  AT  ROW  JJ=J+NNOD 

JJ=J+NNOD 

P(JJ,J)=P(JJ,J)-AZ 
P(JJ,JJ)=P(JJ,JJ)+(BZ-l.D+0) 
CHK2=CHK2-AZ+(BZ-l.D+0) 
GO  TO  200 
END  IF 
C 

^ IP  MN0D  +  1<J<  =  NN0D  THEN  LOAD  EQN.18  AT  ROW  JJ=J  +  NNOD  OF  MATRIX  W/ 

C      REFERENCE  TO  PSI(MN0D+1)  I.E.  J=MN0D+1  IN  THIS  FORMULA 

C      AND  L=1,NN0D-MN0D+1 

C 

r     PSI(J+L)=PSI(J)-(k/2)*SUM[I  TO  L](q(J+I)+q(J+I-l))*ABS(Z(J+I)-Z(J+I-l)) 
C  •   SEE  AJK  AND  CKH,  "APPLICATION  OF  CVBEM  TO  •  .  .  MNT  .  J  .  NUM  .  MTHDS  .  ENG  .  ,  19  89 

I F ( J . GT . MNOD+1 . AND . J . LE . NNOD )  THEN 

JJ=J+NNOD 
C 

C...  COMPUTE  DS  AND  SUMQ 
C 

JM1=J-1 

DX=X(J)-X(JM1) 

DY=Y(J)-Y(JM1) 

DXSQ=DX*DX 

DYSQ=DY*DY 

DS=DSQRT( DXSQ+DYSQ ) 

SUMQ=RIN2(J)+RIN2(JM1) 

S(JJ)=S( JJ)-SUMQ*DS/(2.D+0*RK) 

P(JJ,JJ)=l.D+0 

P(JJ,NNOD+JM1)=-1.D+0 

GO  TO  2  00  ■    ■' 

END  IF  V 

C  ■  ^  '.•'•■ 

C***********  piLM  COEFFICIENT  GIVEN  AT  NODE  "J"  ,  KTYPE(J)=3  *********c     '■ 

C 

130     CONTINUE 
C 
C      1.  LOAD  IMPLICIT  FORMULATION  FOR  PHI  EQUATION  AT  ROW  JJ=J 

JJ=J 

P(JJ, JJ+NNOD)=P(JJ,JJ+NNOD)+AZ 

P(JJ,JJ)=P(JJ, JJ)+(BZ-l.D+0) 

CHKl=CHKl+AZ+(BZ-l.D+0) 


*s 


'>■ 
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c 

C      2.  LOAD  PSI  EQN  FROM  V.OBlll    CONDITION  FOR  NODE  J  AT  ROW  JJ=J+MNOD 

C         OR  IMPLICIT  PSI  EQUATION  FOR  NODE  J=l  OR  MNOD+1 

C 

IF  (J.EQ.l)  THEN 
C 

C J  =  l  THEN  PSI=0 

C 

PSI=O.D+0 

c 

C LOAD  THE  EXPLICIT  FORM  OF  PSI  AT  NODE  JJ  =  J+MNOD 

C 

JJ=J+NNOD 

P(JJ,JJ)=P(JJ,JJ)+BZ 

P(JJ,J)=P(JJ,J)-A2 

S(JJ)=S(JJ)+PSI 

CHK2=CHK2-AZ+BZ 

GO  TO  200 

END  IF 

c 

C J=MN0D+1 

C 

IF(J.EQ. MNOD+1)  THEN 
C 

C LOAD  IMPLICIT  FORMULATION  FOR  PSI  EQUATION  AT  ROW  JJ=J+NNOD 

C 

JJ=J+NNOD 

P(JJ,J)=P(JJ,J)-AZ 

P(JJ, JJ)=P( JJ,JJ)+(BZ-1 .D+0) 

CHK2=CHK2-A2+(BZ-l.D+0) 

GO  TO  200 

END  IF 
C 

C ALL  OTHER  NODES  THEN  LOAD  EQN. 19  AT  ROW  JJ  =  J  +  NNOD 

C      SEE  AJK  AND  CKH, "APPLICATION  OF  CVBEM  TO  . . . " , INT . J . NUM . MTHDS . ENG . , 19 89 
C 

JJ=J+NNOD 
C 

C COMPUTE  DS  AND  SUMTINF 

C 

JM1=J-1 

DX=X(J)-X(JM1) 

DY=Y(J)-Y(JM1) 

DXSQ=DX*DX 

DYSQ=DY*DY 

DS=DSQRT ( DXSQ+DYSQ ) 

SUMTINF=RIN1(J)*RIN2(J)+RIN1(JM1)*RIN2(JM1) 

S(JJ)=S(JJ)+SUMTINF*DS/(2.D+0*RK) 

P(JJ, JJ)=l.D+0 

C IF  J  =  2  THEN  ROBIN  CONDITION  RELATES  PISC2)  TO  PSKl)  WHICH  IS  SET  TO 

C     ZERO  BY  CONVENTION 
C 

IF(J.EQ.2)  THEN 

P( JJ,NNOD+JM1)=O.D+0 

ELSE 

P(JJ,NNOD+JM1)=-1.D+0 

END  IF 

P(JJ,J)=RIN1(J)*DS/{2.D+0*RK) 

P(JJ, JM1)=RIN1( JMl) *DS/(2.D+0*RK) 

GO  TO  200 
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c 

C FINISHED    LOx\DING    THE    ELEMENT 

C 
200     CONTINUE 

RETURN 

END 
C 

c********************************************«*«*«*««*««**««**«« 

C  SUBROUTINE  TO  COMPUTE  ANGLES  BETWEEN  THE  ADJACENT 
C  NODES  ==>  ANGLE(J)  USED  IN  LOADING  DIAGONAL  TERMS 
C  OF  EQN.  4-22 

C«*****«******«****«********«******«******** *****«**««**«*«**«** 

c 

SUBROUTINE  CANGLE CMNOD, NNOD ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER (NN=4 8) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN )  ,  RINl ( NN ) , RIN2 ( NN ) , P ( NN , NN ) , 
$S(NN) , ANGLE (NN) 

COMMON  PI,TWOPI 

DO  100  J=1,NN0D 

C DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 

C        FOR  THE  BRANCH  CUT  AT  THETA=0 
C 

I=J-1 

K=J  +  1 

IF(J.EQ.l)      I=MNOD 

IF( J.EQ.MNOD)   K=l 

IF ( J . EQ . MNOD+1 ) I =NNOD 

IF( J.EQ.NNOD)   K=MN0D+1 

C. COMPUTE  POSITION  OF  THE  ENDPOINTS  OF  NEIGHBORS  RELATIVE 

C        TO  "J" 

XI=X(I )-X(J) 

YI=Y( I )-Y( J) 

XK=X(K)-X(J) 

YK=Y(K)-Y( J) 
C COMPUTE  ANGLE 

CALL  CAUCH5(XI,YI,ANGLEI ) 

CALL  CAUCH5(XK,YK,ANGLEK) 

B=ANGLEI-ANGLEK 
C ANGLE  BETWEEN  TWO  NODES  CANNOT  BE  NEGATIVE:  0<  =  B<  =  2*PI 

IF(B.LT.O)  B=B+TWOPI 
100     ANGLE(J)=B 

RETURN 

END 
C 

Q*  *  *  *  *********  Ic  ****************************  -k  *  *  *  *  -k  *  *  -k  -k  *************  * 
C        THIS  SUBROUTINE  COMPUTES  THE  ANGLE  THAT  THE 

C        DIRECTED  VECTOR  FORM  THE  ORIGIN  TO  THE  POINT  (X,iY)  MAKES 
C        WITH  THE  POSITIVE  X-AXIS 
C****************************************************************** 

c 

SUBROUTINE  CAUCH5 ( X, Y, ANGLE ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  PI,TWOPI 

IF ( X . EQ . 0 . AND . Y . GT . 0 )  ANGLE=PI/2 . D+0 

IF(X.EQ.O.AND.Y.LT.O)  ANGLE=PI *1 . 5D+0 

I F { X . GT . 0 . AND . Y . GE . 0 )  ANGLE=DATAN ( Y/X ) 

IF ( X . LT . 0. AND . Y . GE . 0 )  ANGLE=PI -DATAN ( -Y/X ) 

I F ( X . LT . 0 . AND . Y . LT . 0 )  ANGLE=PI +DATAN ( Y/X ) 

IF ( X . GT . 0 . AND . Y . LT . 0 )  ANGLE=  2 . D  +  0*PI -DATAN ( -Y/X  ) 
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c** 

c 

c 

c 

c 

c 

c 

c** 


c. 

c 

c 


RETURN 
END 

THIS  SUBROUTINE  OUTPUTS  THE  BOUNDARY  ELEMENT  GEOMETRIC  VALUES 
IT  FIRST  COMPUTES  THE  DISTANCES  d(N,J)  AND  d(M,J)  ©THE  POINTJ 
WHERE,  M=N+1.  THEN  IT  COMPUTES  THE  ANGLE  THETAC j +1, j -1 )  AND 
THE  CONSTANTS  A,B,C,D  DEFINED  IN  THE  EQN .  ON  PAGE  188. 
(note:  the  eqn.  on  that  page  Is  NOT  In  the  final  form  used  In 
this  program,  e.g  In  program  CAUH2] 
***************************************************  jt«**,*»jt,»jmj,,jjj 

SUBROUTINE  CAUCHK MNOD, NNOD, J, M, N, A, B, C, D ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER(NN=48) 

C0MM0N/BLK/X(NN),Y(NN),KTyPE(NN),RINl(NN),RIN2(NN),P(NN,NN), 
$S(NN),ANGLE(NN) 

COMMON  PI,TWOPI 
...COMPUTE  AND  STORE  2*PI 

TWOPI=2.D+0*PI 
. ..DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 

FOR  THE  BRANCH  CUT  AT  THETA=0 


C 

c. 
c 


c 

C. 


JM1=J-1 
JP1=J+1 
IF(J.EQ, 
IF( J.EQ, 
IF( J.EQ, 
IF (J.EQ. 


1)      JM1=MN0D 
MNOD)   JP1=1 
MN0D+1)JM1=NN0D 
NNOD)   JP1=MN0D+1 


.COMPUTE  THE  VECTOR  LENGTHS  d(N,J)  AND  d(M,J) 

XLN=DSQRT( (Y(N)-Y(J))**2+(X(N)-X(J))**2) 
XLM=DSQRT( (Y(M)-Y(J))**2+(X(M)-X(J))**2) 
A=DLOG(XLN/XLM) 

.CHECK  IF  DEALING  WITH  ELEMENTS  [J-1,J]  AND  [J,J+1] 
IFCM.EQ. JMl.OR.N.EQ.JPl)  GO  TO  98 


: DIAGONAL  TERM 


C 

C DEALING  WITH  ELEMENT  (M,N]  AND  NODAL  POINT  J  :  SUMMATION  TERM 

C      DETERMINE  ANGLE  GEOMETRY 

ZMX=(X(M)-X(J)  ) 

ZMY=(Y(M)-Y(J) ) 

ZNX=(X(N)-X(J) ) 

ZNY=(Y(N)-Y(J)  ) 

CALL  CAUCH5(ZNX,ZNY,ANGLEN) 

CALL  CAUCH5(ZMX,ZMY,ANGLEM)  ' 

B=ANGLEN-ANGLEM 

C IF  ENDPOINTS  M  AND  N  ARE  DIRECT  NEIGHBORS  OF  "J"  THEN 

C THE  INTERIOR  ANGLE  IS  GIVEN  IN  THE  INPUT 

IF(M.EQ. JMl.OR.N.EQ.JPl)  GO  TO  98 
C 

C ACCOUNT  FOR  PRINCIPAL  VALUE  OF  THE  LOGARITHM  .  THE  PRINCIPAL 

C      BRANCH  FOR  THE  REIMANN  SURFACE  OF  THE  LOGARITHM  RESTRAINS 
C      THETA  SUCH  THAT  -PI<THETA<=PI  TO  YEILD  A  SINGLE  VALUED 
C      FUNCTION  FOR  ln(z)  ;  z  NOT  0. 
C 


98 


IF(B.LE.-PI ) 
IF(B.GT.PI ) 
GO  TO  99 
CONTINUE 
B=ANGLE( J) 


B=B+TWOPI 
B=B-TWOPI 
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RETURN 
Q^    CCMTINUE 
C 
C COMPUTE  THE  CONSTANTS 

C 

F=(X(N)-X(M))**2+(Y(N)-Y(M))**2 

C=A*(X(N)-X(M))-B*(YCM)-Y(N)) 

D=B*(X(N)-X(M) )+A*(Y(M)-Y(N) ) 

C=C/F 

D  =  D/F 

RETURN 

END 
C 
C 

c*  ************************************************************** 
C  OUTPUT  SUBROUTINE  FOR  THE  CVBEM  ESTIMATE 

C  OF  UNKNOWN  NODAL  VALUES  PHI  AND  PSI  AT  THE 

C  BOUNDARY 

C*  ************************************************************** 

C 

SUBROUTINE  CAUCH4 ( MNOD, NNOD, Q, REX, REY ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER (NN=4 8 ) 

COMMON/BLK/X (NN),Y{NN),KTYPE CNN), RINK NN),RIN2(NN),P(NN,NN), 

$S (NN), ANGLE (NN) 
COMMON/INOUT/ICHQ, ILOAD 

DIMENSION  REX(NN) ,REY(NN) 

C 

C      THIS  SUBROUTINE  OUTPUTS  RESULTS 

C 

WRITE(6,10) 
WRITE(9,10) 
10    F0RMAT{////,6X, 'CAUCHY  PROGRAM  RESULTS  FOR  NODAL  VALUES',/) 
IF(ICHQ.EQ.l)  THEN 
WRITE(6,13)  Q 
WRITE(9,13)  Q 
END  IF 
13      FORMATdX,//, IX,  'COMPUTED  VALUE  FOR  UNKNOWN  Q=  '  ,  DIO  .  4  , // ) 

WRITE(6,12) 

WRITE(9,12) 
12    FORMAT (6X, 'N0DE',8X, ' STATE ',6X, 'STREAM' ,/, 
$5X,  •  NUMBER ',5X,  'VARIABLE' , 4X,  'FUNCTION',/) 

DO  50  1=1, NNOD 

IF(I .EQ.MNOD+1)  WRITE(*,*) 

IF(I  .EQ.MNOD  +  1)  WRITEO,*) 

WRITE(6,55)  I,REX(I),REY(I) 

WRITEO,  55)  I,REX(I),REY(I) 
.   55    F0RMAT(3X,I5,5X,2(D12.4,1X) ) 
50    CONTINUE 

RETURN 

END 
C 

c*  ****************************************************************** 
C        THIS  SUBROUTINE  COMPUTES  THE  VALUES  OF  THE  STREAM  FUNCTION 
C        STATE  VARIABLE  AT  THE  NODES  OF  THE  PROBLEM  GEOMTERY.  THIS 
C         IS  ACCOMPLISHED  BY  USING  THE  GIVEN  NODAL  VALUES  AND  THE 
C        CVBEM  ESTIMATED  NODAL  VALUES  (FOR  THE  UNKNOWN  VALUES)  AND 
C        THE  CVBEM  APPROXIMATION  TO  CAUCHY ' S  INTEGRAL,  HERE  EQN .  4-22 

C 

C        IN  ADDITION  AN  ERROR  ESTIMATE  IS  PERFORMED  COMPARING  THE 
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C        NODAL  VALUES  ,  KNOWN  AND  COMPUTED  ,  TO  THE  RESULTS  OBTAINED 

C        BY  THE  CVBEM  APPROXIMATION  OF  CAUCKY ' S  INTEGRAL.  THE 

C        DISCREPENCY  BETWEEN  THE  TWO  IS  THE  ERROR  e(Z)  AT  EACH  NODE 

C******->'*************************-**********i,i,i,i,i,i,i,****i,i,im*i,*i,i,ti,i,i,i, 

SUBROUTINE  HOMI ( REX, REY, MNOD, NNOD, Q ) 

IMPLICIT  DOUBLE  PRECISION ( A-H, 0-Z ) 

PARAMETER (NN=4 8) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN),P(NN,NN), 
$S{NN) ,ANGLE(NN) 
COMMON  PI,TWOPI 

DIMENSION  HlX(NN),Hly(NN),REX(NN),REY(NN) 
C 

C      MAIN  LOOP 
C 

DO  20  J=1,NN0D 
HlX{J)=O.D+0 
20    H1Y(J)=O.D+0 
WRITE(9,22) 
WRITE(6,22) 
22    FORMAT(//,10X, 'CVBEM  APPROXIMATION  OF  NODAL  VALUES',/ 
$,10X,'NODE»      STATE       STREAM',/) 
DO  1000  J=1,NN0D 
C 

C COMPUTE  BOUNDARY  CONTRIBUTIONS 

C 

DO  500  K=1,NN0D 

C SKIP.  AT  THE  END  OF  THIS  LOOP, COMPUTE  AND  ADD  PRINCIPLE  VALUE 

KK=K+1 

IF(K.EQ.MNOD)  KK=1 

IF(K.EQ.NNOD)  KK=MN0D+1 

IFCK.EQ. J.OR.KK.EQ. J)  GO  TO  500 

CALL  CAUCH1(MN0D,NN0D,J,K,KK,A,B,C,D) 

C1=REX(KK)*(X(J)-X(K) ) -REY ( KK ) * ( Y ( J ) -Y (K  )  ) 
$-REX(K)«(X(J)-X(KK) )+REY(K)*(Y(J)-Y(KK)  ) 

C2=REX(KK)*(Y(J)-Y(K) ) +REY (KK ) * ( X C J ) -X ( K  )  ) 
$-REX(K)*(Y(J)-Y(KK)  ) -REY ( K ) * ( X ( J ) -X ( KK  )  ) 

H1X( J)=H1X(J)+C1*C-C2*D 

H1Y(J)=H1Y(J)+C1*D+C2*C 
500   CONTINUE 
C 

C CALCULATE  PRINCIPLE  VALUE  CONTRIBUTION 

C 

JM1=J-1 

JP1=J+1 

IF(J.EQ.l)       JM1=MN0D 

IF(J.EQ.MNOD)    JP1=1 

IF(J.EQ.MN0D+1)  JM1=NN0D 

IF( J.EQ.NNOD)    JP1=MN0D+1 

XLN=DSQRT( (Y(JPl)-Y(J) ) **2+ ( X ( JPl ) -X ( J ) )**2) 

XLM=DSQRT(  (Y(JMl)-Y(J) ) **2+ (  X ( JMl ) -X ( J ) )**2) 

AJ=DLOG(XLN/XLM) 

B J=TWOP I -ANGLE ( J ) 

H1X(J)=H1X(J)+REX(J)*AJ-REY(J)*BJ 

H1Y(J)=H1Y(J)+REX(J)*BJ+REY(J)*AJ 
C 

C      DIVIDE  BY  2*PI*1 
C 

TEMP=HIX( J) 

TWOPI=2.D+0*PI 

H1X( J)=H1Y(J)/TW0PI 


161 


C         DiSCREPENCY  BETWEPN  tup^^?  -  ^  —"-'-'2  IHTECRAL   -Iir     "^'^ 
C**********,..,,,,,,^^JWf^NJHET.as  THE  ERROR  e  (  Z ,  AT  EACH  NODE 

SeterJSS)"^""^^"'^'^-"'"-^) 

COMMON/BLK/X(NN),Y(NN)  KTYPPr»K,^  r, 
5S(NN),ANGLE(NN)  '      ''''^'''^'=<""''^^N1<NN),RIN2(NN),P(NN  NN ) 
COMMON  PI,TW0PI 

DIMENSION  H1X(NN),H1Y(NN,,REX(NN),REY(NN) 


C 

C      MAIN  LOOP 
C 

DO  20  J=1,NN0D 
HlX(J)=O.D+0 
20    H1Y(J)=O.D+0 
WRITE(9,22) 
WRITE(6,22) 


22 


DO  1000  J=1,NN0D  STREAM',/) 


C COMPUTE  BOUNDARY  CONTRIBUTIONS 

DO    500    K=1,NN0D 

«"„"  ™^  ™  -  -"  .occohp™  .„„  „„  ,„,„^^^ 

IF(K.EQ.MNOD)  KK=1 
IF(K.EQ.NNOD)  KK=MN0D+1 
IF(K.EQ.J.OR.KK.EQ.J)  GO  TO  -Snn 
CALL  CAUCH1(MN0D,NN0D  J    K    y/^\    . 

HlX(J,=Hlx;a;.Jl*c-c;^f"^'*'^<J'-X(KK)) 

.nn   "^^'^)="1^(J)+C1*D+C2*C 
500   CONTINUE 
C 

C ^^^CULATE  PRINCIPLE  VALUE  CONTRIBUTION 

JM1=J-1 
JP1=J+1 

Tpl^-fS-^'       JM1=MN0D 
IF( J.EQ.MNOD)    JPl=i 

IFJJ.EQ.MNOD+1)     JM1=NN0D 
VTV    ;fn;™°^'  JP1=MN0D  +  1 

AJ=DLOG(XLN/XLm}       ''^'^**2.(X(J«1)-x(j,,**2) 

BJ=TWOPI-ANGLE(J) 

HlX(J)=HlX(J)+REX(J)*Aj-REY(j)*Bj 
^  "l^(J)=HlY(J).REX(J)*BJ.REY(j;*fj 

^  DIVIDE    BY    2*PI*1 

TEMP=H1X(J) 

TWOPI=2.D+0*PI 

H1X(J)=H1Y(J)/TW0PI 


ifi:-y.  ■. 
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C        IF  K=0   THEN  POINT  (XO,YO)  IS  AN  INTERIOR  POINT 
C        IF  XOO  THEN  POINT  (XO,yo)  13  A  BOUNDARY  POINT 
C 

C CHECK  IF  POINT  IS  AN  INTERIOR  POINT 

C 

IF  (K.EQ.O)  GO  TO  1000 
C 

C CHECK  IF  K  IS  A  BOUNDARY  BRANCH  NODE  :  K  =  l  OR  MNOD  +  1 

C 

IF(K.EQ.l. OR. K.EQ. MNOD+1)  GO  TO  100 
C 

C K  IS  AN  ORDINARY  BOUNDARY  NODE 

C 

XO=X(K) 

YO=Y(K) 

C IF  K  =  MNOD  LOOSE  THE  FIRST  TERM 

C 

IF(K.EQ.MNOD)  GO  TO  200 

ISFLAG=1 

N  =  l 

M=MNOD 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C1=C 

D1  =  D 
C 

C IF  K=NNOD  LOOSE  LAST  TERM 

C 

IF(K.EO.NNOD)  GO  TO  300 
200     ISFLAG=1 

N=HN0D+1 

M=NNOD 

CALL  CAUCHQ (M, N, A, B, C, D, ISFLAG, XO, YO ) 

C2=C 

D2  =  D 
C  *      « 

C COMPUTE  A  AND  B 

C 
300     ISFLAG=0 

N=MN0D+1 

H=l 

CALL  CAUCHQCM, N, A, B,C,D, ISFLAG, XO,YO) 

AS=A 

-.'•'*  -T*   0  w  ~  l3  - 

:  "  ':,      ST0X1  =  C1*(X0-X(MN0D)  ) -Dl*  (  YO-Y  (  MNOD  )  ) 

■   STOX2=C2*(XO-X(NNOD) )-D2*(Y0-Y{NN0D) )      : 
ST0Y1=C1*(Y0-Y(MN0D) )+Dl*(X0-X(MN0D) ) 
STOY2=C2*(YO-Y(NNOD) ) +D2* ( XO-X ( NNOD) ) 
STPHI = ( ST0X1-ST0X2+AS ) *Q/TWOPI 

STPSI=(ST0Y1-ST0Y2+BS)*Q/TW0PI  ■ 

RETURN 
100     IF(K.EQ.MN0D+1)  GO  TO  150 
C 

C NODE  K  IS  A  BRANCH  NODE  K  =  l 

C  «       * 

C        COMPUTE  A   AND  B 
C 

ISFLAG=0 

N=MN0D+1 

M=MNOD 

X0=X(1) 
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yo=Y(l) 

CALL  CAUCHQ{M,N,A,B,C,0,I£FL.\C,XO,-/0, 

AS  =  A 
BS  =  B 

C COMPUTE  SECOND  TERM 

ISFLAG=1 
N=MN0D+1 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C4=C 

STOX2=C4*(XO-X{NNOD)  )-D4*(yO-Y(NNOD)  ) 

STOY2=C4«(YO-y(NNOD) ) +D4 * { XO-X ( NNOD ) ) 

STPHI=(AS-ST0X2)*Q/TW0PI 

STPS I = ( BS-ST0Y2 ) *Q/TWOP I 

RETURN 

C BOUNDARY  NODE  IS  BRANCH  NODE  K=MN0D  +  1 

C 
150     X0=X(MN0D+1) 

Y0=Y(MN0D+1) 
C        COMPUTE  FIRST  TERM 

ISFLAG=1 

N  =  l 

M=MN0D 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C5=C 
D5  =  D 

C 

C  ■      COMPUTE  A   AND  B 

ISFLAG=0 

N=NNOD 

M=l 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

AS  =  A 

ST0X1=C5*(X0-X(MN0D) )-D5*(Y0-Y(MN0D) ) 
ST0Y1=C5*(Y0-Y(MN0D) ) +D5* ( XO-X ( MNOD ) ) 
STPHI=(AS+ST0X1)*Q/TW0PI 
STPSI=(BS+ST0Y1)*Q/TW0P1 

RETURN 

C 

C NODE  IS  AN  INTERIOR  NODE 

C 

1000    CONTINUE 
C COMPUTE  FIRST  TERM 

ISFLAG=1 

N  =  l 

M=MNOD 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C1  =  C 

D1  =  D 
C 
C COMPUTE  LAST  TERM 

C 

N=MN0D+1 

M=NN0D 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C2  =  C 
D2  =  D 
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c  *     * 

C COMPUTE  A   AN2  E 

C 

ISFLAG=0 

N=MN0D+1 

M  =  l 

CALL  CAUCHQ (M,N,A,B,C,D,I SFLAG, XO, YO ) 

AS  =  A 

BS=B 
C 

C COMPUTE  SOURCE  TERM  CONTRIBUTIONS  TO  AN  INTERIOR  POINT 

C 

ST0X1=C1*(X0-X(MN0D) ) -Dl* ( YO-Y ( MNOD ) ) 

STOX2=C2*(XO-X(NNOD) ) -D2* ( YO-Y (NNOD) ) 

STOY1=C1*(YO-Y(MNOD) ) +D1* ( XO-X ( MNOD) ) 

STOY2=C2*( YO-Y (NNOD) ) +D2* ( XO-X { NNOD ) ) 

STPHI = ( ST0X1-ST0X2+AS ) *Q/TWOPI 

STPSI=(ST0Y1-ST0Y2+BS) *Q/TWOPI 

RETURN 

END 
C 

C  THIS  SUBROUTINE  OUTPUTS  THE  BOUNDARY  ELEMENT  GEOMETRIC  VALUES 

C  FOR  THE  SOURCE  TERM  CONTRIBUTIONS 

C  IT  FIRST  COMPUTES  THE  DISTANCES  d(N,J)  AND  d(M,J)  @THE  POINTJ 

C  WHERE,  M=N+1.  THEN  IT  COMPUTES  THE  ANGLE  THETA ( j +1, j -1 )  AND 

C  THE  CONSTANTS  A,B,C,D  DEFINED  IN  THE  EQN .  ON  PAGE  188. 

C  (note:  the  eqn.  on  that  page  is  NOT  in  the  final  form  used  in 

C  this  program,  e.g  in  program  CAUH2 1 

SUBROUTINE  CAUCHO(M,N, A, B, C, D, ISFLAG, XO, YO ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER(NN=48) 

C0MM0N/BLK/XfNN),YrNN),KTYPE(NN),RINl(NN),RIN2(NN),P(NN,NN), 
$S(NN) ,ANGLE(NN) 

COMMON  PI,TWOPI 
C 

C COMPUTE  THE  VECTOR  LENGTHS  d(N,J)  AND  d(M,J) 

C 

XLN=DSQRT( ( Y ( N ) -YO ) **2+ ( X ( N ) -XO ) **2 ) 

XLM=DSQRT( ( Y(M) -YO) **2+( X (M) -XO) **2 ) 

A=DLOG(XLN/XLM) 
C 
C DETERMINE  ANGLE  GEOMETRY 

ZMX=(X(M)-XO) 

ZMY={Y(M)-YO) 

ZNX=(X(N)-XO) 

ZNy=(Y(N)-YO) 

CALL  CAUCH5(ZNX,ZNY,ANGLEN) 

CALL  CAUCH5(ZMX,ZMY,ANGLEM) 

B=ANGLEN-ANGLEM 
C 

C ACCOUNT  FOR  PRINCIPAL  VALUE  OF  THE  LOGARITHM  .  THE  BRANCH  CUT 

C        TAKEN  SUCH  THAT  -PI<THETA<=PI 

IF(B.LE.-PI)  B=B+TWOPI 

IF(B.GT.PI)   B=B-TWOPI 

IF(ISFLAG.EQ.O)  RETURN 
C 

C COMPUTE  THE  CONSTANTS 

C 
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F=(X(N)-X(M) )**2+(Y(N)-Y(M))**2 

D=B*(X(N)-X(M) )+A*(Y(M)-Y(N)) 

C=C/F 

D=D/F 

RETURN 

END 


^ 


APPENDIX  C 

IMPLICIT  AND  EXPLICIT  CVBEM  FORTRAN 

PROGRAM  FOR  TRIPLY  CONNECTED  DOMAINS 

c  ^ 

C        PROGRAM  NAME:   CVTPLY.FOR  ^ 

C  ^ 

C  THIS  PROGRAM  USES  THE  IMPLICIT  OR  EXPLICIT  METHOD  OF  SOLUTION    C 

C  IN  THE  COMPLEX  VARIABLE  BOUNDARY  ELEMENT  METHOD  FOR  TRIPI Y 

C  CONNECTED  DOMAINS. 
C 

C        THE  INPUT   IS  READ  FROM  THE  FILE   "D:CAUCHY  DAT" 
C        THE  OUTPUT  IS  PRINTED  TO  THE  FILE  "D : CAUCHY ! ANS" 


C 


C  WHERE,    IM         =NUMBER  OF  THE  LAST  NODE  ON  THE  OUTER 

C  BOUNDARY,  RIGHT  BELOW  THE  BRANCH  CUT 

C  IL         =LAST  NODE  IN  FIRST  HOLE, THIS  IS 

C  "L"  IN  DISSERTATION 


C  ILN 


C  "LN"  IN  DISSERTATION 

^  :  IN         =NUMBER  OF  THE  LAST  NODE  ON  THE  INNER 


C  „,„...  ,,„^,  ^ 

C  VECTOR  ARE  TO  BE  OUTPUT 
C 

C  ICHLOAD    =0  IF  LOADING  PROCEDURE  IS  NOT  TO  BE 

^                "  ECHOED  TO  THE  SCREEN 

C  =1  IF  LOADING  PROCEDURE  IS  TO  BE  ECHOED 

C 

c 

C  KTYPE(I)   =1  IF  PHI  SPECIFIED  AT  NODE  I 


C 
C 
C 
C 
C 

C        INPUT  FORMAT: IM,IL, ILN, IN, ICHQ,ICHMAT, ICHLOAD  ROWl     C 

C  X(1),Y{1),KTYPE(1),VALUE(1),ANGLE(1)        R0W2     C 

C  X(2),Y(2),KTYPE(2),VALUE(2),ANGLE(2)        R0W3     C 


C  X(M),Y(M),KTYPE(M),VALUE(M),ANGLE(M)         ROWM     C 


=LAST  NODE  IN  SECON  HOLE, THIS  IS  NODE     C 


BOUNDARY,  RIGHT  ABOVE  THE  BRANCH  CUT;    C 


,   .»*w..*   rtjjv-.  V  c   inc.  oc\AHUn  (. 

'^  ALSO,  TOTAL  NUMBER  OF  NODES  ON  THE 

C  BOUNDARY 

C 

^  Ql         =1  VALUE  OF  BIG  PSI  IS  UNKNOWN 

C  =VALUE  OF  BIG  PSI  IS  KNOWN  AND  INPUT 

^  -02         =1  VALUE  OF  BIG  PSI  IS  UNKNOWN 

C  =VALUE  OF  BIG  PSI  IS  KNOWN  AND  INPUT      C 

Z,  ^^"Q       =1  I^  Ql  &  Q2  IS  UNKNOWN  AND  SET  TO  1 

C  =2  IF  Q  IS  KNOWN  AND  VALUE  IS  INPUT       C 

C  ICHMAT     =0  IF  COEFFICIENT  MATRIX  AND  FORCING 

C  VECTOR  ARE  NOT  TO  BE  OUTPUT 

"}.^ll    COEFFICIENT  MATRIX  AND  FORCING      C 

C 

c 

C 
C 

c 

X(I),Y(I)  =COORDINATES  OF  NODE  I  C 


C 

c 
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C  =2  IF  PSI  SPECIFIED  AT  NODE  I  C 

C  =3  IF  q/k  SPECIFIED  AT  NODE  I  C 

C  =4  IF  h/k  AND  T-INFINITY  SPECIFIED  AT  C 

C  NODE  I  C 


C 


C 


C  RINKI)    =PHI,0,0,h/k  C 


C 


C 


C  RIN2(I)    =0,PSI,q/k,T-INFINITY  C 


C 
C 


C 
C 


C  ===>  THIS  PROGRAM  USES  THE  ROUTINE  "DSOLVE"  GAUSSIAN  C 

C  ELIMINATION  SIMULTANEOUS  EQUATION  SOLVER  WITH  C 

C  PARTIAL  PIVOTING,  EQUILI BRATION . ITERATIVE  C 

C  REFINEMENT  IS  DISABLED  DUE  TO  LIMITATIONS  OF  C 

C  AVAILABLE  HIGHER  THAN  REAL*8  PRECISION  C 


C 


c 


C  ===>  MATRIX  STATISTICS  ARE  COMPUTED  AND  OUTPUT  IS  GIVEN      C 

C  FOR  THE  MATRIX  NORM  AND  CONDITIONING  NUMBER.  C 

C  THE  L-INFINITY  NORM  IS  USED.  C 


C 


c 


C  ===>  SINGULAR  VALUE  DECOMPOSITION  IS  AVAILABLE  AND  CAN  BE    C 

C  USED  IF  K(A)  IS  LARGE.  ADDITIONALLY  EXACT  K(A)  IS       C 

C  PROVIDED  IF  SVD  IS  USED.  C 


C 


c 


c*****««*****«****************«*****************************************c 
c  c 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER (NN=17) 

INTEGER  IV(NN),TDIM,ADIM,IER 

DIMENS I ON  AA ( NN , NN ) , BB ( NN ) , XX ( NN ) , T ( NN , NN ) , R { NN ) 

DIMENSION  CC(NN),W(NN),U(NN,NN),V(NN,NN) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RI N 1 ( NN ) , RI N2 ( NN ) , 
SP ( NN , NN ) , S ( NN ) , ANGLE ( NN ) 

COMMON/CHKEQN/CHKPHI , CHKPSI 

COMMON/OUTOUT/ICHQ, ILOAD 

COMMON  PI,TWOPI 

DIMENSION  REX(NN),REY(NN) 
C 

C COMPUTE  PI 

C 

PI=DACOS(-1.D+0) 

TWOPI=2.D+0*PI 
C 

C INPUT/OUTPUT  DATA  FILES  AND  READ  IN  DATA 

C 

0PEN(8,FILE='D:CAUCHY.DAT' ) 

0PEN(9,FILE='D:CAUCHY.ANS' ) 

C 

READ ( 8, * )  IM, IL, ILN, IN,Q1,Q2, ICHQ, ICHMAT, ILOAD 
WRITE(6,52)  I M,IL, ILN, IN, Q1,Q2, ICHQ, ICHMAT 
WRITE(9,52)  IM,IL, ILN, IN,Q1,Q2, ICHQ, ICHMAT 
52      FORMATdX,  '=  =  =  =  >  CVBEM  PROGRAM  FOR  TRIPLY  ' 
$, 'CONNECTED  DOMAINS  :  CVTPLY .FOR ' , // , IX, 


5'  NUMBER  OF  LAST  OUTER  NODE 

$ '  NUMBER  OF  NODE  NUMBER  L 

$ '  NUMBER  OF  NODE  NUMBER  LN 

S'  NUMBER  OF  LAST  INNER  NODE 

$•  Ql  (TOTAL  HEAT  FLOW]/k] 

$'  Q2  [TOTAL  HEAT  FLOWl/k] 


,13,/, IX, 
,13,/, IX, 
,13,/, IX, 

,13,/, IX, 
,D10. 4,/, IX 
,D10.4,//, 
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$1X,'  ICHQ=', 13,//, IX, 'MATRIX', 

$•  OUTPUT  CHOICE=',I3,2X,'==>  0-NO  OUTPUT   ;  1-MATRIX  OUTPUT'  /) 
DO  7  1=1, IN  .  - 

7       READ(8,*)  X(I),Y(I),KTYPE(I),RIN1(I),RIN2(I) 
C  7      WRITE(*,*)  I,X(I),Y(I),KTYPE(I),RIN1(I),RIN2(I) 
C 
C      CALL  SUBROUTINE  ANGLE  TO  COMPUTE  THE  ANGLES  BETWEEN  THE  NODES 

C THIS  IS  THE  ANGLE  USED  IN  COMPUTING  THE  TERM  OUTSIDE  THE 

C      SUMMATION  SIGN  IN  EQN .  4-22 

C 

CALL  CANGLE(IM,IL,ILN,IN) 

C OUTPUT  PROBLEM  SET  UP  AND  GEOMETRY 

WRITE(6,*) 
WRITE(9,10) 
WRITE(6,10) 
lb      FORMAT (20X, 'NODAL  GEOMETRY  AND  INPUT  VALUES',//, 
$1X,'N0DE',7X,'X(I)',8X,'Y(I)',7X,'KTYPE(I)',3X, 
$ 'RINK  I)  ',5X,  'RIN2(I)  ',5X,  'ANGLE(I)  ' , /, 2X,  ' NO  .  '  ) 
DO  20  1=1, IN 

IF(I.EQ.IM+1)  WRITE(*,*) 
IF(I.EQ.IM  +  1)  WRITEO,*) 
IF(I.EQ.IL+1)  WRITEC*,*) 
IF(I.EQ.IL+1)  WRITEC9,*) 
IF(I.EQ.ILN+1)  WRITE(*,*) 
IF(I .EQ.ILN+1)    WRITEC9,*) 

WRITE(6,8)     I,X(I),YCI),KTYPE(I),RIN1(I),RIN2(I), 
$ANGLE(I)*180.D+0/PI 
20  WRITE(9,8)     I , X ( I ) , Y C I ) , KTYPE ( I ) , RINl ( I ) , RIN2 ( I ) , 

$ANGLE(I)*180.D+0/PI 
8  F0RMAT(1X,I3,5X,2CD12.5,1X),I5,4X,2(D12.5,1X),1X,F6.2) 

C 

C  PREPARE    GLOBAL    MATICES 

C 

C ZERO   ARRAYS 

C 

WRITE(6,*) 

WRITE(S,*)  'ZEROING  ARRAYS' 

DO  5  1=1, NN 

5  S(I )=0 .D+0 
DO  6  1=1, NN 
DO  6  J=1,NN 

6  P(I,J)=0.D+0 

C CALL  MATRIX  LOADING  PROGRAM  TO  ASSEMBLE  THE  CVBEM  EQUATIONS 

C 

CALL  L0ADER(IM,IL,ILN,IN,Q1,Q2) 

C 

C  GET  READY  TO  CALL  GAUSSIAN  ELIMINATION  SIMULTANEOUS 

C  EQUATION  SOLVER  OR  SINGULAR  DECOMPOSTION  SOLVER  IF  K(A)>SVDEPS 

C  FIRST  SET  PARAMETERS, 

C 

ADIM=NN 

TDIM=NN 

N=NN 
C 

C THEN  OUTPUT  FORCING  VECTOR  MATRIX  [PI  AND  FORCING  VECTOR  {S) 

c'     IN  THE  IMPLICIT  FORMULATION: 

C 

C  [PHPHI,PSI}  =  {S} 

c 
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C IF  THE  INPUT  CHOICE  ICHMAT  =  0  THEN  SKIP  MATRIX  EQNS  OUTPUT 

C 

IMAX=NN 

IF(ICHMAT.EQ.O)  THEN 

WRITE(*,250) 

250  FORMATCIX,/,  '  MATRIX  EQUATION  OUTPUT  SUPRESSED  BY  ICHMAT=0'  /) 
GO  TO  1555 

ELSE 

C IF  THE  INPUT  CHOICE  ICHMAT  =  1  THEN  OUTPUT  MATRIX  RQNS  VIA  MATOUT 

DO  251  1=1, NN 
BB(I)=S(I) 
DO  251  J=1,NN 

251  AA(I,J)=P(I, J) 

CALL  MATOUT (AA,BB, I MAX) 
END  IF 
C 

C CALL  INVDET  AND  ATTEMPT  TO  COMPUTE  THE  CONDITIONING  NUMBER 

C 
1555    DO  1500  I=1,IMAX 

DO  1500  J=1,IMAX 
1500    AA(I,J)=P(I,J) 

DTNRM=O.D+0 

DETM=0.D+0 

WRITE(*,*)  •  CALLING  INVDET' 

CALL  INVDET(AA,DTNRM,DETM) 
C 

C COMPUTE  L-INFINITY  NORMS  OF  THE  MATRIX  [P)  AND  ITS  INVERSE 

C  -1 

C        [P]     (RETURNED  BY  INVDET  AND  STORED  AS  [ AA ] )  AND  COMPUTE 
C 

c 
c 


C        THE  CONDITIONING  NUMBER  OF  THE  MATRIX  [P]  AS  K(P)=|P|*|P   | 


RNORMA=0.D+0 

RNRMAI=O.D+0 

DO  2150  I=1,IMAX 

ST01=O.D+0 

STO2=0.D+0 

DO  2100  J=1,IMAX 

ST01  =  ST01  +  DABS(AA(I, J)  ) 
2100    ST02  =  ST02  +  DABS(P(I, J)  ) 

RNRMAI =DMAX1 (RNRMAI , STOl ) 
2150    RN0RMA=DMAX1(RN0RMA,ST02) 

WRITE(*, 2155 )RN0RMA, RNRMAI 

WRITE( 9, 2155 )RNORMA, RNRMAI 
2155    FORMATCIX,//, IX, 'MATRIX  STATISTICS :',/, IX, 

5- •,/,lX,'NORM  [A]   =',D10.4,/,9X,'-1',/1X, 

$'NORM  [A]   =',D10.4) 

COND=RNORMA*RNRMAI 

WRITE(*,2200)  DTNRM,COND 

WRITE(9,2200)  DTNRM,COND 
2200    FORMATCIX, /,5X,'-1',/, IX, 'K(A)    ~= ' , DIO . 4 , 2X, ' HORNEBECK ' , 
$'  APPROXIMATION  TO  INVERSE  OF  CONDITIONING  NUMBER'/, 
$1X,'K(A)     =',D10.4,2X, 'L-INFINITY  NORM  USED  TO  COMPUTE  K(A)'/) 


C        CHECK  INVDET  BY  COMPARING  W/  SIMULTANEOUS  EQUATION  SOLVER  USED 
C        TO  GET  SOLUTION.  STORE  INVDET  ANSWER  IN  VECTOR  (R)— >  UNUSED 
C        NOW  BY  DLUD  SINCE  ITERATIVE  REFINEMENT  TURNED  OFF 


C 


DO  2300  I=1,IMAX 


170 


STO=0.D+0 

DO  2350  J=1,1MAX 
2350    STO=STO+AA(I,J)*S(J)  , 

R(I)=STO 
2300    CONTINUE 
C 

C CHECK  CONDITIONING  NUMBER  :   K(A)  <  =  1.0D  +  12  SKIP  SVD 

C  KCA)  >  l.OD+12  CALL  SVD 

C 

WRITE(*,3000) 

WRITEO,  3000) 
3000    FORMATdX,//, IX,  'CHECK  CONDITIONING  NUMBER  :',/,  25X, 
5'K(A)<=1.0D+12   SKIP  SVD  ALGORITHM ',/, 2 5X, 
$'K(A)>  l.OD+12   CALL  SVD  ALGORITHM',//) 

SVDEPS=1.0D+12 

IF(COND.LE.SVDEPS)  THEN 

WRITE(*,*)  'SKIPPING  SVD' 

WRITE(*,«)  '  DO  YOU  WANT  TO  OVERRIDE  AND  STILL  USE  SVD?' 

WRITE(*,*) 

WRITE(*,*)  •  ENTER  :     0-TO  OVERRIDE  AND  CALL  SVD' 

WRITE(*,*)  '  1-TO  PROCEED  W/0  SVD' 

READ(*,*)  INPUT 

IF( INPUT. EQ.O)  GO  TO  4001 

WRITE(*,*) 

WRITEO,*)  'SKIPPED  SVD' 

ICHALG=1 

GO  TO  4000 

ENDIF 
C 

C CALLING  SINGULAR  VALUE  DECOMPOSITION  SOLVER 

C 

c 

C GIVE  OVERRIDE  CHOICE 

C 

WRITE(*,*) 

WRITEC*,*)  '  SVDEPS  EXCEEDED  AND  CALLING  SVD' 

WRITE(*,*)  '  DO  YOU  WANT  TO  OVERRIDE  AND  STILL  USE  GE? ' 

WRITEC *,*) 

WRITE(*,*)  '  ENTER  :     0-TO  OVERRIDE  AND  CALL  GE ' 

WRITE(*,*)  •  1-TO  PROCEED  W/  SVD' 

READC*,*)  INPUT 

IF( INPUT. EQ.O)  GO  TO  4000 

WRITE(*,*) 
C 

C CALLING  SVD 

C 
4001    WRITEC*,*)  •  CALLING  SVD  SOLVER' 

CALL  SVDCP,S,XX,NN,CC,U,V,W) 

GO  TO  4500 
C 

c 

C CALL  GAUSSIAN  ELIMINATION  SIMULTANEOUS  EQUATION  SOLVER  :  DSOLVE 

C 

C SET  FORCING  VECTOR  AND  MATRIX   TO  BE  SENT  TO  SOLVER 

C 
4000    DO  555  11=1, N 
BBCII )=SCII ) 
DO  555  IJ=1,N 
555     AACII,IJ)=PCII,IJ) 
WRITEC 6,*) 
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WRITE(6,*)  -CALLING  GAUSSIAN  ELIMINATION  SIM. EQN.  SOLVER'  ,; 

CALL  DSOLVE(AA,BB,N,ADIM,TDIM,T,IV,XX,R,IER) 

C 

C COMPUTE  &  PRINT  RESIDUAL  VECTOR 

C 
4500    WRITE(6,656) 
WRITE(9,656) 

656  K0RHAT(1X,//,1X, •====>  RESIDUAL  AND  SOLUTION  VECTORS',//, 
$18X,'CHK  SOLN  W/',2X,'S0LN  FROM  DLUD ',/, 3X,  '  I ',  3X,  ' RESIDUAL • , 

$6X, 'INVDET',4X, "SIM. EQN  SOLVER' ,/,2X, ' ',2X,' ',6X, 

5. •,4X,' ') 

DO  658  1=1, N 
■  RES=S(I) 
DO  657  J=1,N 

657  RES=RES-P(I,J)*XX(J)  -   •. 
WRITE(9,659)  I , RES , R ( I ) , XX ( I ) 

658  WRITE(6,559)  I  ,RES,R(I  )  ,  XX  ( I  )  .^., 

659  FORMATdX,'  I  •,I3,3('  I  •,D10.4,1X,'  I  •  ))  •>  . 

C 

C SET  {S)  EQUAL  TO  SOLUTION 

c 

DO  670  1=1, N 
570     S(I)=XX{I) 

C ASSIGN  BOUNDARY  NODAL  POINT  VALUES  DEPENDING  ON  HOW  LOADING  WAS 

C      PERFORMED 

C 

DO  7010  1=1, IN 

IF(KTYPE(I) .EQ.2)  GO  TO  7015 

REX(I)=RIN1(I) 

REYCI)=S(I) 

GO  TO  7010 
7015    REX(I)=S(I) 

REYd  )=RIN2(I  ) 
7010    CONTINUE 

IF(ICHQ.EQ.l)  THEN 

Q1=S(1)  . 

REY(1)=0  '   . 

Q2  =  S(NN)     -    =  -H    :  '    ,: 

END  IF  '  -  ■    - 

C 

C OUTPUT  RESULTS  .         . 

C  .  • 

WRITE(6,*) 

WRITE (6,*)  'OUTPUT  RESULTS' 

CALL  0UTPUTCIM,IL,ILN,IN,REX,REY,Q1,Q2) 

C  '■  ' 

C COMPUTE  THE  RELATIVE  ERROR  e(J)  AT  THE  BOUNDARY  NODES  /  ; 

C  '"'  - 

WRITE (6,*) 

WRITE (6,*)  'COMPUTE  RELATIVE  ERROR' 
CALL  H0MI(REX,REY,IM,IL,ILN,IN,01,Q2) 

C GIVE  OPTION  OF  WRITING  DATA  FILE  FOR  POST  PROCESSING 

C 

WRI TE ( *  8  0  0) 
800     FORMAT C IX, //, IX, 'DO  YOU  WANT  TO  SAVE  NODAL  VALUES  AND', 
$•  LOCATIONS  FOR  POSTPROCESSING  ?',/, IX, ' ENTER  CHOICE:', 
$•  1-TO  SAVE',/,15X,'0-NOT  TO  SAVE') 


\-- 


A  ■ 
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READ(*,*)  ICH 

IF(ICH.EQ.O)  STOP 

CLOSE  (9) 

CLOSE  (8) 

0PEN(9,FILE='D:P0ST.DAT' ) 

WRITE(9,*)  IM,IL,ILN,IN,Q1,Q2 

DO  810  1=1, NN 
810     WRITEC9,820)  X ( I ) , Y ( I ) , REX ( I ) , REY ( I ) 
820     F0RMAT(4(1X,D15.9)  ) 

STOP 

END 

C 
(,__===__===============  CVBEM  SUPPORT  SUBROUTINES  ======================C 

C 
C 

r************************************************************************- 

C  c 

C        THIS  SUBROUTINE  LOADS  THE  CVBEM  EQUATIONS  IN  THE  GLOBAL  MATRIX   C 

C        IT  ACESSES  THE  IMLICIT  AND  EXPLICIT  LOADERS  SUBROUTINES  C 

C        IMP  AND  EXP  SEE  TABLE  4-4  IN  DISSERTATION  C 

C         GLOBAL  MATRIX  EQUATIONS  (P]{XX}={S}  C 

C  c 

r************************************************************************- 

C  c 

SUBROUTINE  LOADER (IM, IL, ILN, IN,Q1 ,Q2 ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN=17) 

COMMON/BLK/X ( NN  )  , Y ( NN ) , KTYPE ( NN ) , R INI ( NN ) , R I N 2 ( NN ) , 
SP ( NN , NN ) , S ( NN ) , ANGLE ( NN ) 

COMMON/CHKEQN/CHKPHI , CHKPSI 
COMMON/OUTOUT/ICHQ, ILOAD 
COMMON  PI,TWOPI 

C 

C*«*******«********    PERFORM    MATRIX    LOADING    ****************************C 

C 

C LOAD  PHI  OR  PSI  EQUATION  FOR  EACH  NODE  "J"  WHERE  J  =  1,...NN0D 

C      DEPENDING  ON  THE  VALUE  OF  KTYPE(J): 

C 

C        SET  ICHEQN=1   ==>  LOAD  IMPLICIT  EQUATION 

C        SET  ICHEQN=2   ==>  LOAD  EXPLICIT  EQUATION 

C        SET  ICHEQN=3   ==>  LOAD  NEUMANN  B.C.  EQUATION 

C        SET  ICHEQN=4   ==>  LOAD  ROBIN  B.C.  EQUATION 

C 

c 

WRITE(6,*) 

WRITE(6,*)  'LOADING  IMPLICIT  EQUATIONS  IN  GLOBAL  MATRIX' 

DO  1000  JJ=1,NN 

IF(JJ.EQ.NN)  THEN 
C...SET  SECOND  NODAL  EQUATION  F0R:Q2 

J=IM+1 

ELSE 

J=JJ 

END  IF 
C 

C...L0AD  IN  DIAGONAL  CONTRIBUTION  AT  "J"  FIRST  INTO  [PI  AND  ISl 
C      I.E.  THE  TERMS  OUTSIDE  THE  SUMMATION  INVOLVING  THE  IMMEDIATE 
C      NEIGHBOR  ELEMENTS  IJ-1,J1  AND  [J,J+1] 
C      TAKE  INTO  ACCOUNT  DOUBLY  CONNECTED  GEOMETRY 
C 
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c 


c 


c 


c. 

c 

c 


A=O.D+0 

B=O.D+0 

C=O.D+0 

D=O.D+0 

CHKPHI=O.D+0 

CHKPSI=O.D+0 


?... ASSIGN  XCHEOH  FOR  LOADING  OF  NODAL  EQUATIONS 


r,^  TT4.1  OR  JJ.EQ.NN)  THEN 
IF(JJ.EQ.IL  +  1-0K-^''  •'='^ 

IF(JJ.EQ.NN)  THEN 

ICHEQN=2 

ELSE 

ICHEQN=1 

.OBIN  B  C   CONDITIONS  AND  SKIP  CVBEM  LOADING  LOOP 
C    LOAD  NEUMANN  OR  ROBIN  B.C. 
c'   IF  ICHEQN=3  OR  4 
I  IF(ICHEQN.EQ.3)  CALL  NEUMANNS) 

I  fFCi?HlSN.Ea.4,  CALL  ROBIN(.) 

C        GO  TO  505 

C 


,J:  L.c.o„.o.c  ..^i5..c..  »o.  »u«B..=  .ceo™™. 

FOR  THE  BRANCH  CUT  AT  THETA 


I=J-1 

IF(J.EQ.l)  I-IM 

IF(J.EQ.IM)  K=l 

IF(J.EQ.IM+1)  I=IN 

IF(J.EQ.IL)  "^-l^l*^ 

IF(J.EQ.IL+1)  I=ILN 

IF(J.EQ.ILN)  K=IL+1 

IF(J.EQ.ILN+1)  I=IL 

IF(J.EQ.IN)  K-IM+1 


C  .,  «RITE{«  *)  •    CALLING  DIAGONAL  LOADER' 

IF(ILOAD.EQ.l)  WRITE(  ,  ) 

i         COMPUTE  ANGLES  AND  COMPLEX  ALGEBRA 

CALL  CAUCHl(IM,IL,ILN,IN,a,I,K,A,B,C,D) 

^C.LOAD  DIAGONAL  TERM  INTO  THE  MATRIX  EQUATION 

-^L^^  Se^^r  ^uSm=^^^ 

WHERE  M=n  AND  N=n+1  IN 
I  ACCOUNT  FOR  DOUBLY  CONNECTED  GEOHETERY 


C 


c 
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C      ALSO  SKIP  THE  CONTRIBUTIONS  OF  THE  DIRECT  NEIGHBORS, ELEMENTS 

C      (I, J]  AND  (J,K1,  THESE  HAVE  ALREADY  BEEN  LOADED  PRIOR  TO  THIS  LOOP 

c  :  ■ 

DO  500  N=l, IN 

C... LOGIC  TO  COMPUTE  N  +  1  ACCOUNTING  FOR  BRANCH  CUT  AND  CIRCUIT  AROUND 

C      THE  DOUBBLY  CONNECTED  DOMAIN 

C 

NP1=N+1  ;:::;:■  \  :■ 

IF(N.EQ.IM)  NP1  =  1  -^'/V 

IF(N.EQ.IL)  NP1=ILN+1  "'  -: 

IF(N.EQ.ILN)NP1  =  IL  +  1  •'  ' 

IF(N.EQ.IN)  NP1=IM+1 

C...SKIP  DIRECT  NEIGHBORING  ELEMENTS 

IF(N.EQ.  J.OR.NPl.EQ.  J)  GO  TO  500  .' 

C... COMPUTE  COMPLEX  ALGEBRA  '",•>.. 

IF(ILOAD.EQ.1)WRITE{*,501)  N,NP1  ,   .' 

501     FORMATOX,  'CALLING  LOADER  FOR  GAMMAt  '  ,  I  2 ,  '  ,  '  ,  I  2 ,  '  ]  '  )  ••-' 

CALL  CAUCH1(IM,IL,ILN,IN,J,N,NP1,A,B,C,D) 

C...LOAD  ELEMENT  CONTRIBUTION  INTO  MATRIX  EQATION 

IF(ICHEQN.EQ.l)  CALL  IMP  (  IM,  IL,  ILN,  IN,  J  J  ,  J  ,N,  NPl,  A,  C,  D  )  ■   ''-.  " 

IF{ICHEQN.EQ.2)  CALL  EXP ( IM, IL, ILN, IN , J J , J, N, NPl, A, C, D )      .  .-' 

500     CONTINUE  / 

c  ■-  •;  -:--^ 

C...GET  READY  TO  COMPUTE  CONTRIBUTIONS  DUES  TO  SOURCES/SINKS  :  STPHI  S  STPSI  iV^i 

c  ..  -  ■-■  ■-:•■- 

505     CONTINUE  .,•' 

XO=X{J) 

YO=Y(J)  ...  -i 

STPHI  =  0.D  +  0  '"^^ 

STPSI=0.D+0 
C 

C...SEE  IF  Q  IS  INPUT  AS  ZERO  ;  IF  SO  THEN  SKIP  SOURCE  TERM  COMPUTATION 

C 

C  IF(ICHQ.NE.l.AND.Q.EQ.O.D+0)  GO  TO  1001  V^--'-' 

c  ■'  .      -■    '■-'• 

C.  .COMPUTE  SOURCE  TERM  CONTRIBUTIONS:  ■       '  -,  ■  :--;.!-> 

C  ■-        ;     ' 

C  1,  COMPUTE  Ql  CONTRIBUTIONS 

C 

CALL  CAUCHS(J,1,IM,IM+1, IN, Ql, STPHI, STPSI, XO,YO) 

C Ql  IS  UNKNOWN 

C 

IF(ICHQ.EQ.l)  THEN  "  " 

C... CHECK  WHETHER  IMPLICIT  OR  EXPLICIT  EQUATION  IS  LOADED 

IFdCHEQN.EQ.l)  THEN 
C... IMPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  P ( JJ , 1 ) =STPHI 

IF(KTYPE(J) .EQ.l)  P ( JJ , 1 ) =STPSI 

ELSE 
C... EXPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J).EQ.2)  P ( JJ, 1 ) =STPSI 

IF(KTyPE(J) .EQ.l)  P(JJ,1)=STPHI 

END  IF   " 

ELSE 
C 

C...Q  IS  GIVEN  ON  INPUT 
C 
C... CHECK  WHETHER  IMPLICIT  OR  EXPLICIT  EQUATION  IS  LOADED 
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c. 


c 
c 
c 

c 

c. 

c 


c. 


c 
c. 
c 
c. 


IF(ICHEQN.EQ.l)  THEN 
•IMPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  S(JJ)= 

IF(KTYPE(J) .EQ.l)  S ( JJ  )  = 

ELSE 
.EXPLICIT  EQUATION  IS  LOADED 


SCJJ)- 
S( JJ)- 


STPHI 
•STPSI 


IF(KTYPE( J 
IF(KTYPECJ 
END    IF 
END    IF 


.EQ.2)  S(JJ)=S(JJ)-STPSI 
.EQ.l)  S(JJ)=S( JJ)-STPHI 


2.  COMPUTE  Q2  CONTRIBUTIONS 
CALL  CAUCHS ( J, IL+1,ILN,IL,ILN+1,Q2, STPHI, STPSI, XO, YD) 
.  .Q2  IS  UNKNOWN 

IF(ICHQ.EQ.l)  THEN 
.CHECK  WHETHER  IMPLICIT  OR  EXPLICIT  EQUATION  IS  LOADED 

IF(ICHEQN.EQ.l)  THEN 
.IMPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  P(JJ,NN)^ 

IF(KTYPE(J) .EQ.l)  P(JJ,NN)^ 

ELSE 
.EXPLICIT  EQUATION  IS 

IF(KTYPE{J) .EQ.2) 

IF(KTYPE(J) .EQ.l) 

END  IF 

ELSE 

.Q  IS  GIVEN  ON  INPUT 


-STPHI 
-STPSI 


LOADED 
P(JJ,NN)=-STPSI 
P(JJ,NN)=-STPHI 


•CHECK  WHETHER 
IFdCHEQN. 


IMPLICIT  OR  EXPLICIT  EQUATION  IS  LOADED 
•EQ.l)  THEN 
.IMPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  S(JJ)=S(JJ)- 

IF(KTYPE(J) .EQ.l)  S(JJ)=S(JJ)- 

ELSE 
.EXPLICIT  EQUATION  IS  LOADED 

IF(KTYPE(J) .EQ.2)  S(JJ)=S(JJ)- 

IF(KTYPE(J) .EQ.l)  S(JJ)=S(JJ)- 

END  IF 

END  IF 


-STPHI 
-STPSI 


-STPSI 
-STPHI 
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IF(KTYPE(J) .EQ.l)  WRITE(*,*) 

•CHKPSI=' ,CHKPSI 

IF(KTYPE(J).EQ.2)  WRITE(*,*) 

•CHKPHI=',CHKPHI 

ELSE 

IF(KTYPE(J) .EQ.l)  WRITE(*,*) 

•CHKPHI=',CHKPHI 

IF(KTYPE(J) .EQ.2)  WRITE(*,*) 

'CHKPSI=' ,CHKPSI 

END  IF 

IF(KTYPE(J) .EQ.3.0R.KTYPE(J) 

.EQ.4)  THEN 

CHK=0.D+0 

DO  600  JJJ=1,NN 

600 

CHK=CHK  +  E>(J,JJJ) 
WRITE(*,*)  'CHKBC=',CHK 
END  IF 

1000 

c 

C.  .  .FI] 

CONTINUE 

NISHED  MATRIX  LOADING 
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RETURN 
END 


'************«******************** 


C 
C 

c< 

c 

c 

c 

c 

c 

c 

c 

c 


********************************* 


=>  IMPLICIT  LOADER 


THIS  SUBROUTINE  LOADS  THE  ELEMENT  CONTRIBUTIONS 

INTO  THE  GLOBAL  MATRIX  EQUATION.  HERE  THE  PORTION  OF 

THE  EQUATION  @  THE  NODE  "J"  IS  LOADED. 

THE  ELEMENT  (M,N1  IS  LOADED  WHERE  N=M+1 

IF  M=J-1  OR  N=J+1  THEN  THE  ELEMENT  IS  THE  LOGARITHMIC 


C*  ***************************************************************** 

C 

SUBROUTINE  IMP ( IM, IL, ILN, IN , JJ , J , M, N, A, C, D ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-2) 
PARAMETER (NN=17) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl (NN ) , RIN 2 ( NN  )  , 
SP ( NN, NN ),S(NN), ANGLE (NN) 
COMMON/OUTOUT/ICHQ, ILOAD 
COMMON/CHKEQN/CHKPHI,CHKPSI 
COMMON  PI,TWOPI 


C 

C 

*«*«*c 
c 
c 
c 
c 
c 
c 
c 
c 

C 

**«*«c 

C 


c 
c 
c 
c 
c 
c 
c 
c 
c 

c. 

c 

c 


THIS  SUBROUTINE  ASSEMBLES  THE  ELEMENTS  IN  THE  GLOBAL  MATRIX 

"P"  WITH  VECTORS  OF  CONSTANTS,  "S".  THAT  IS  IT  LOADS,  LINE 

BY  LINE,  THE  IMPLICIT  FORMULATION  OF  EQN .  4-22  FOR  DOUBLY 

CONNECTED  DOMAINS.  FOR  EACH  NODE  "J"  IT  LOADS  IN 

THE  IMAGNARY  PART  OF  THE  EQUATION  FOR  NODES 

WITH  KTYPE=1  (eqn.  18  in  the  notes)  AND  THE  REAL  PART  FOR 

NODES  WITH  KTYPE=2  (eq.  19  in  the  notes) 

TWOPI=2.D+0*PI 
.DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 
FOR  THE  BRANCH  CUT  AT  THETA=0 

JP1=J+1 

JM1=J-1 

IF(J.EO.l) 

IF(J.EQ.IM) 

IF(J.EQ.IM+1) 

IF(J.EQ.IL) 

IF(J.EQ.IL+1) 

IF(J.EQ.ILN) 

IF(J.EQ.ILN+1) 

IF(J.EQ.IN) 


C.  . 

C 

C 

C 
C.  . 

c 
c 
c 


JM1=IM 

JP1  =  1 

JM1=IN 

JP1=ILN+1 

JM1=ILN 

JP1=IL+1 

JM1=IL 
xr^>..cw....,      JP1  =  IM  +  1 
.COMPUTE  NEIGHBORING  POINTS  AND  CHECK  IF  THEY  ARE  THE  DIRECT 
NEIGHBORS  OF  "J" 


IF(M.EQ.JMl.OR.N.EQ.JPl)  GO  TO  100 

LOADING  A  SUMMATION  TERM  INTO  [P]  AND  (S) 

COMPUTE  THE  CONSTANTS  USED  IN  THE  SUMMATION  TERM 


IF (ILOAD. EQ.l)  WRITE(*,1000)J,M,N 
1000  FORMAT ( "       LOADING  SUMMATION  TERM[J,M,N]  ',3(1X,I3)) 
C1=(X(J)-X(M) )*C-(Y(J)-Y(M) )*D 
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C2=(X(J)-X(M))*D+(Y(J)-y(M) )*C 

C3=(X(J)-X(N))*C-(Y(J)-Y(N) )*D 
;      C4=(X(J)-X(N) )*D+(Y(J)-Y(N) )*C 

G1=-C3/TW0PI 

G2=C1/TW0PI 

G3=-C4/TWOPI 

G4=C2/TWOPI 
C 

C... ASSIGN  COEFFICIENTS  TO  THE  VARIABLES  IN  THE  SUMMATION  TERM. 
C      FIRST  CHECK  THE  TYPE  OF  UNKNOWN  AT  THE  DIAGONAL  :  PHI  OR  PSI  GIVEN 
C 

IF(KTYPE( J) .EQ.l)  GO  TO  5 
C 

C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STATE  VARIABLE  "PHI " ,KTYPE=2 
C      USE  EQUATION  19  IN  THE  NOTES,  IMAGINARY  PART  OF  4-22 

CC1=G1 

CC2=G2 

CC3=G3 

CC4=G4 

GO  TO  8 
C 

C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STREAM  FUNCTION  "PSI " , KTYPE=1 
C      USE  EQUATION  13  IN  THE  NOTES,  REAL  PART  OF  4-22 
5     CC1=G3 

CC2=G4 

CC3=-G1 

CC4=-G2 
C 

C...LOAD  THE  SUMMATION  TERM  CONTRIBUTION  INTO  IP)  AND  {S)  FOR 
C    ELEMENT  (M,N)  , WHERE  M  AND  N  NOT  EQUAL  TO  J  AND  N=M+1 
C    ACCORDING  TO  A  POSITIVE  COUNTERCLOCKWISE  NUMBERING  CONVENTION 

C 

C    CHECK  WHAT  HARMONIC, PHI  OR  PSI, IS  SPECIFIED  AT  NODES  "M"  AND  "N" 

C 

C... CHECK  NODE  "M"  FIRST 

C 

8     IF  (KTYPE(M) .EQ.2)  GO  TO  10 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "M",KTYPE=1 

S(JJ)=S(JJ)-CC3*RIN1(M) 

P( JJ,M)=P(JJ,M)+CC1 

IF(KTYPE(J) .EQ.l)  THEN 

CHKPSI=CHKPSI+CC1+CC3 

ELSE 
!      CHKPHI=CHKPHI+CC1  +  CC3  ■     '-        ' 

END  IF  .     •, 

GO  TO  50 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "M",KTYPE=2 
10    S( JJ)=S( JJ)-CC1*RIN2(M) 

P(JJ,M)=P(JJ,M)+CC3 

IF(KTYPE(J) .EQ.l)  THEN 

CHKPSI=CHKPSI+CC3+CC1 

ELSE 

CHKPHI=CHKPHI+CC3+CC1 

END  IF 
C... CHECK  NODE  "N"  NEXT 

50    IF(KTYPECN) .EQ.2)  GO  TO  60 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "N",KTYPE=1 

S(JJ)=S(JJ)-CC4*RIN1(N) 

P(JJ,N)=P(JJ,N)+CC2 

IF(KTYPE(J) .EQ.l)  THEN 


|v. 
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CHKPSI=CHKPSI+CC2+CC4 

ELSE 
CHKPHI=CHKPHI+CC2+CC4 

END  IF 

C    STREAM°fSn?TION  "PSI"  specified  for  node  "N",KTyPE=2 
60    S(Ja)=S(JJ)-CC2*RIN2(N) 
P(JJ,N)=P(JJ,N)+CC4 
IF(KTYPE(J) .EQ.l)  THEN 
CHKPSI=CHKPSI+CC4+CC2 

ELSE 

CHKPHI =CHKPHI +CC4  +CC2 

END  IF 
GO  TO  200 
C 

r        BOUNDARY  ELEMENT  BEING  LOADED  CONTAINS 

C        Se  "5"  IE.  LOADING  DIAGONAL  CONTRI BUTIONS  ^  ^  ^  ^ 

C 

c 

C... CHECK  TYPE  OF  DIAGONAL  UNKNOWN 
C 
C 
100   AZ=A/TWOPI 

BZ=(TWOPI-ANGLE(J) )/TWOPI 

C 

TTrdTOAD    EO    1)    WRITE(*,250)  J,JM1,J,JP1 
250       FORiA?r  LOADING    DIAGONAL    TERM    FOR    N0DEM3, 

$•       GAMMA[I,J,K1',3(1X,I3)) 


C 
C 

C. 

c 


c. 
c 


TVfKTYPE( J) .EQ. 2)  GO  TO  110 
.ST^^i  vIrIABLE  "PHI"  SPECIFIED  AT  NODE  "J",KTYPE=1 

P(JJ,JJ)=BZ-l.D+0 
S(JJ)=SCJJ)+(AZ*RIN1(J) ) 
CHKPSI=CHKPSI-AZ+BZ 

.STREa5°fu2?tION  "PSI"  SPECIFIED  AT  NODE  "J",KTYPE=2 


110   P(JJ,JJ)=BZ-l.D+0 

S{JJ)=S(JJ)-(AZ*RIN2(J) ) 
CHKPHI=CHKPHI+AZ+BZ 
C... FINISHED  LOADING  THE  ELEMENT 
C 
200   CONTINUE 
RETURN 
END  C 

c*******  — —  —  —  **************************"************c 
c  c 

C       ===>  EXPLICIT  LOADER  g 

C  THIS  SUBROUTINE  LOADS  THE  ELEMENT  CONTRIBUTIONS  C 

C  INTO  THE  GLOBAL  MATRIX  EQUATION.  HERE  THE  PORTION  OF  C 

C  THE  EQUATION  @  THE  NODE  "J"  IS  LOADED.  ^ 

r  THE  ELEMENT  {M,N1  IS  LOADED  WHERE  N=M+1  ^ 

C  I?  M=i-1  OR  N=J.l  THEN  THE  ELEMENT  IS  THE  LOGARITHMIC  C 

C 


M 
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c** 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 

c. 

c 

c 


c. . 

c 

c 

c 

c. 
c 
c 
c 


«*«******************************************************************c 

c 

SUBROUTINE  EXP ( IM, IL,  ILN, IN , J J, J , M, N, A, C, D ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN=17) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN  )  , RIN2 ( NN  )  , 
SP(NN,NN),S(NN) , ANGLE (NN) 
COMMON/OUTOUT/ICHQ, ILOAD 
COMHON/CHKEQN/CHKPHX,CHKPSI 
COMMON  PI,TWOPI 

THIS  SUBROUTINE  ASSEMBLES  THE  ELEMENTS  IN  THE  GLOBAL  MATRIX 

"P"  WITH  VECTORS  OF  CONSTANTS,  "S".  THAT  IS  IT  LOADS,  LINE 

BY  LINE,  THE  IMPLICIT  FORMULATION  OF  EQN .  4-22  FOR  DOUBLY 

CONNECTED  DOMAINS.  FOR  EACH  NODE  "J"  IT  LOADS  IN 

THE  IMAGNARY  PART  OF  THE  EQUATION  FOR  NODES 

WITH  KTYPE=1  (eqn.  18  in  the  notes)  AND  THE  REAL  PART  FOR 

NODES  WITH  KTYPE=2  (eq.  19  in  the  notes) 

TWOPI=2.D+0*PI 
.DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 
FOR  THE  BRANCH  CUT  AT  THETA=0 

JP1=J+1 
JM1=J-1 
IF(J.EQ.l) 
IF(J.EQ.IM) 
IF(J.EQ.IM+1) 
IF(J.EQ.IL) 
IF{J.EQ.IL+1) 
IF(J.EQ.ILN) 
IF(J.EQ.ILN+1)  JM1=IL 
IF(J.EQ.IN)  JP1=IM+1 
..COMPUTE  NEIGHBORING  POINTS  AND  CHECK  IF  THEY  ARE  THE  DIRECT 
NEIGHBORS  OF  "J" 

IF(M.EQ.JMl.OR.N.EQ.JPl)  GO  TO  100 

..LOADING  A  SUMMATION  TERM  INTO  [PI  AND  {S} 

COMPUTE  THE  CONSTANTS  USED  IN  THE  SUMMATION  TERM 


JM1=IM 

JP1  =  1 

JM1=IN 

JP1=ILN+1 

JM1=ILN 

JP1=IL+1 


IF ( ILOAD. EQ.l)  WRITEC*,1000)J,M,N 
1000  FORMAT('       LOADING  SUMMATION  TERM[J,M,N1 
C1=(X{J)-X(M))*C-(Y(J)-Y(M) )*D 
C2=(X(J)-X(M) )*D+(Y(J)-Y(M) )*C 
C3=(X(J)-X(N) )*C-(Y(a)-Y(N) )*D 
C4=(X(J)-X(N))*D+{Y(J)-YCN) )*C 
G1=-C3/TW0PI 
G2=C1/TW0PI 
G3=-C4/TW0PI 
G4=C2/TWOPI 


.3(1X,I3)) 


C 

c. 

c 

c 

c 

c. 

c 


.ASSIGN  COEFFICIENTS  TO  THE  VARIABLES  IN  THE  SUMMATION  TERM. 

FIRST  CHECk  THE  TYPE  OF  UNKNOWN  AT  THE  DIAGONAL  :  PHI  OR  PSI  GIVEN 

IF(KTYPE(J) .EQ.l)  GO  TO  5 

.THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STATE  VARIABLE  "PHI " , KTYPE=2 
USE  EQUATION  PSI 
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CC1=G3 

CC2=G4 

CC3=-G1 

CC4=-G2 

GO  TO  8 
C 

C...THE  DIAGONAL  UNKNOWN  HARMONIC  IS  THE  STREAM  FUNCTION  "PSI " , KTYPE=1 
C      USE  PHI  EQUATION 
5     CC1=G1 

CC2=G2 

CC3=G3 

CC4=G4 
C  -  ■-= 

C...LOAD  THE  SUMMATION  TERM  CONTRIBUTION  INTO  (PI  AND  {S}  FOR 
C      ELEMENT  [M,N1  , WHERE  M  AND  N  NOT  EQUAL  TO  J  AND  N=M+1 
C      ACCORDING  TO  A  POSITIVE  COUNTERCLOCKWISE  NUMBERING  CONVENTION 

C  \'--''-'": 

C      CHECK  WHAT  HARMONIC, PHI  OR  PSI, IS  SPECIFIED  AT  NODES  "M"  AND  "N"  '  " 

C 

C... CHECK  NODE  "M"  FIRST  ''^ 

C 

8     IF  (KTYPE(M) .EQ.2)  GO  TO  10 
C... STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "M",KTYPE  =  1 

S(JJ)=S(JJ)-CC3*RIN1(M) 

P(JJ,M)=P( JJ,M)+CC1 

IF(KTYPE(J) .E0.2)  THEN 

CHKPSI=CHKPSI+CC1+CC3  .' 

ELSE  '-..^t'T 

CHKPHI=CHKPHI+CC1+CC3  ■ ;  '  ' 

END  IF  ^ 

GO  TO  50 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "M",KTYPE=2  • 

10    S( JJ)=S( JJ)-CC1*RIN2(M) 

P(JJ,M)=P( JJ,M)+CC3 

IF(KTYPE(J) .EQ.2)  THEN 

CHKPSI=CHKPSI+CC3+CC1 

ELSE 

CHKPHI=CHKPHI+CC3+CC1  .  • 

END  IF 
C... CHECK  NODE  "N"  NEXT 

50    IF(KTYPE(N) .EQ.2)  GO  TO  60 
C...  STATE  VARIABLE  "PHI"  SPECIFIED  FOR  NODE  "N",KTYPE  =  1 

S( JJ)=S( JJ)-CC4*RIN1(N) 

P(JJ,N)=P(JJ,N)+CC2 

IF(KTYPE(J) .EQ.2)  THEN 
,  ■     CHKPSI=CHKPSI+CC2+CC4 

ELSE 

CHKPHI=CHKPHI+CC2+CC4 

END  IF 

GO  TO  200 
C... STREAM  FUNCTION  "PSI"  SPECIFIED  FOR  NODE  "N",KTYPE  =  2 
60    S( JJ)=S( JJ)-CC2*RIN2(N) 

P(JJ,N)=P( JJ,N)+CC4 

IF(KTYPE(J) .EQ.2)  THEN 

CHKPSI=CHKE'SI+CC4+CC2 

ELSE  -  • 

CHKPHI=CHKPHI+CC4+CC2 

END  IF 

GO  TO  200 
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BOUNDARY  ELEMENT  BEING  ^°^^^^,  ^°Sr?IuTIONS 
NODE  "J"  I.E.  LOADING  DIAGONAL  CONTRI  BUTIONi, 

C CHECK  TYPE  OF  DIAGONAL  UNKNOWN 


C 
C 
100   A2=A/TW0PI 

BZ=(TWOPI-ANGLEC J) )/TWOPI 

C 

^  TFdLOAD  EQ.l)  WRITE(*,250)J,JM1,J,JP1 

250   FoS?('       'loading  DIAGONAL  TERM  FOR  NODEM  3, 
S-   GAMMA[I,J,K1',3(1X,I3)) 
C 

IF(KTYPECJ).EQ.l)  GO  TO  110 
C... STATE  VARIABLE  "PSI"  SPECIFIED  AT  NODE  "J",KTYPE=2 

C 

P(JJ,JJ)=-AZ 

S(JJ)=S(JJ)+C1-BZ)*RIN2(J) 

CHKPSI=CHKPSI-AZ+BZ 

GO  TO  200 
C... STREAM  FUNCTION  "PHI"  SPECIFIED  AT  NODE  "J",KTYPE=1 

C 

110   P(JJ,JJ)=AZ 

S(JJ)=S(JJ)+(1-BZ)*RIN1(J) 

CHKPHI=CHKPHI+AZ+BZ 

C... FINISHED  LOADING  THE  ELEMENT 

C 
200   CONTINUE 
RETURN 
END  C 

^......■...............—-'•••"'— *— "— *'""**""'""""c 

C        OF  PSI'S  IN  GLOBAL  MATRIX  C 

?,..,,.*..»**«.  —  --  —  «*  —  ***-***************'***********" 
C       SUBROUTINE  NEUMANN { IM, IL, ILN , IN, J , M, N, A, C, D ) 
C       IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

cSSS7BLi/xliH',,Y(NN,,KTYPE(NN),RINl(NN),RIN2,NN), 

$P(NN,NN),S(NN),ANGLE(NN) 
COMMON/OUTOUT/ICHQ, ILOAD 
COMMON/CHKEQN/CHKPHI ,CHKPSI 


C  COMMON  PI,TWOPI 

C 

C... COMPUTE  DS  AND  SUMSQ 

C 

C  JM1=J-1 

C  DX=X(J)-X(JM1) 

C  DY=YCJ)-Y(JM1) 

C  DXSQ=DX*DX 
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C  DS=DSQRT(DXSQ+DYSQ) 

C  SUMQ=RIN2(J)+RIN2(JM1) 

C  s(J)=S{J)-SUMQ*DS/2.D+0 

c 

C  IPSIJ=J 

C  IPSIJM1=JM1 

C  p(J,IPSIJ)=l-D+0 

C  p(J,IPSIJMl)=-l.D+0 

C  RETURN  ^ 


SUBROUTINE  ROBIN ( IH, IL , ILN , IN , J , M  N  A, c, D ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0  Z) 

'cSSn™SU(nn),kt.pe(nn,,rini(nn),rin2 

$P(NN,NN),S(NN),ANGLE(NN) 
COMMON/OUTOUT/ICHQ,ILOAD 
COMMON/CHKEQN/CHKPHI,CHKPSI 


C 

c 

C       PARA"'=^'^:'='^\".!:'!:.\'.:  v,mm^  KTYPE(NN),RINl(NN),RINZir.r.,, 

c 

c 
c 

C       COMMON  PI,TWOPI 
C 


C... COMPUTE  DS  AND  SUMTINF 


C 

C       JM1=J-1 

C 

c 


c 

c 
c 

C 

c 

C 


DX=X(J)-X(JM1) 

DY=Y(J)-Y{JM1) 
C  •     DXSQ=DX*DX 
C       DYSQ=DY*DY 

I  SS=Sa)*l?;2(aMi,.RiNUaMi,.RXN2(.^^ 

S(J)=S(J)+SUMTINF*DS/2.D+0 
„  .  =  ,  THE»  .0.1»  CONOITION  RELATES  PSIU,  TO  PSUl,  .HIC»  IS  SET 
*T0  ZERO  BY  CONVENTION 
.SET  ISPia  AND  IPSiaMl  TO  POSTITION  OF  PSI'S  IN  MATRIX 

C  IPSIJ= 

C  IPSIJM1= 

C  P(,IPSIJ) 

C  IF(J.EQ.2)  THEN 

C  p(J,IPSiaMl)=O.D+0 

C       ELSE 

C       p(J,IPSIJMl)=-l.D+0 

C       END  IF 

^...SET  IPHia  AND  IPHICMl  TO  POSITION  OF  PHIS'S  IN  MATRIX 

C 

C       IPHIJ= 

C      p!55lSilJ)=RINl(J)*DS/2.D+0 
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C  P(J, IPHIJM1)=RIN1( JMl)*DS/2.D+0 

C  RETURN 

C  END 

C 

C 

C* **********************«**«********«**************«««*****«**,* 

C  SUBROUTINE  TO  COMPUTE  ANGLES  BETWEEN  THE  ADJACENT 

C  NODES  ==>  ANGLE(J)  USED  IN  LOADING  DIAGONAL  TERMS 

C  OF  EQN.  4-22 

C 

SUBROUTINE  CANGLE ( IM, IL, ILN, IN ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN=17) 

COMMON/BLK/X ( NN ) , V ( NN ) , KTYPE ( NN ) , RINl ( NN ) , R I N2 ( NN ) , 
SP ( NN, NN ) , S ( NN ) , ANGLE ( NN ) 
COMMON  PI,TWOPI 
DO  100  J=1,IN 
C...DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 
C    FOR  THE  BRANCH  CUT  AT  THETA=0 
C 

I=J-1 
K=J  +  1 

IF(J.EQ.l)      I=IM 
IF(J.EQ.IM)     K=l 
IF(J.EQ.IM+1)   I=IN 
IF(J.EQ.IL)     K=ILN+1 
IF(J.EQ.IL+1)   I=ILN 
IF(J.EQ.ILN)    K=IL+1 
IF(J.EQ.ILN+1)  I=IL 
IF(J.EQ.IN)     K=IM+1 
C... COMPUTE  POSITION  OF  THE  ENDPOINTS  OF  NEIGHBORS  RELATIVE      TO  "J" 
XI=X( I )-X(J) 
YI=Y(I)-Y(J) 
XK=X(K)-X(J) 
YK=Y(K)-Y(J) 
C.  .  .COMPUTE  ANGLE 

CALL  CAUCH5  (  XI,  YI,  ANGLED 
CALL  CAUCH5(XK,YK,ANGLEK) 
B=ANGLEI-ANGLEK 
C... ANGLE  BETWEEN  TWO  NODES  CANNOT  BE  NEGATIVE:  0<=B<=2*PI 
IF(B.LT.O)  B=B+TWOPI 
100   ANGLE(J)=B 
RETURN 
END 
C 

C        THIS  SUBROUTINE  COMPUTES  THE  ANGLE  THAT  THE 

C        DIRECTED  VECTOR  FORM  THE  ORIGIN  TO  THE  POINT  (X,iY)  MAKES 

C        WITH  THE  POSITIVE  X-AXIS 

C 

SUBROUTINE  CAUCH5 ( X, Y, ANGLE ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON  PI,TW0PI 

IF(X.EQ.O.AND.Y.GT.O)  ANGLE=PI/2 . D+0 
IF(X.EQ.O.AND.Y.LT.O)  ANGLE=PI*1. 5D+0 
IFCX.GT.O.AND. Y.GE.O)  ANGLE=DATAN ( Y/X ) 
IF ( X . LT . 0 . AND . Y . GE . 0 )  ANGLE=PI -DATAN ( -Y/X ) 
IF(X.LT.O.AND.Y.LT.O)  ANGLE=P I +DATAN {Y/X) 
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IF(X.GT 

RETURN 

END 


,  0 . AND . Y . LT . 0 )  ANGLE=2 . D  +  0 *PI -DATAN ( - Y/X ) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 


SUBROUTINE  CAUCHl ( IM, IL, ILN, IN , J,M, N, A, B, C, D ) 
******************************************************************** 
THIS  SUBROUTINE  OUTPUTS  THE  BOUNDARY  ELEMENT  GEOMETRIC  VALUES 
IT  FIRST  COMPUTES  THE  DISTANCES  d(N,J)  AND  d(M,J)  @THE  POINTJ 
WHERE   M=N+1.  THEN  IT  COMPUTES  THE  ANGLE  THETA( j +1, j-1 )  AND 
THE  CONSTANTS  A,B,C,D  DEFINED  IN  THE  EQN .  ON  PAGE  188. 
[note:  the  eqn.  on  that  page  is  NOT  in  the  final  form  used  in 
hhi«;  nrnaram.  e  .  a  in  proqram  CAUH2  ] 

********iL^*°****;************************************************** 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER(NN  =  17)  ...,,.,„, 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN), 

$P ( NN , NN ) , S ( NN ) , ANGLE ( NN ) 

COMMON  PI,TWOPI 
....COMPUTE  AND  STORE  2*PI 

TW0PI=2  D+0*PI 
DOUBBLY  CONNECTED  LOGIC  FOR  ADJACENT  NODE  NUMBERING  ACCOUNTING 

FOR  THE  BRANCH  CUT  AT  THETA=0 


JP1=J+1 

JM1=J-1 

IF(J.EQ.l) 

IF(J.EQ.IM) 

IF(J.EQ.IM+1) 

IF(J.EQ.IL) 

IF(J.EQ.IL+1) 

IF( J.EQ. ILN) 

IF(J.EQ.ILN+i; 

IF(J.EQ.IN) 


JM1=IM 
JP1  =  1 

JM1=IN 

JP1=ILN+1 

JM1=ILN 

JP1=IL+1 

JM1=IL 

JP1=IM+1 


C 
C. 

c 


c 
c. 


.COMPUTE  THE  VECTOR  LENGTHS  dCN,J)  AND  d(M,J) 


XLN=DSQRT((Y(N)-Y(J))**2+(X(N)-XCJ))**2) 
XLM=DSQRT((Y(M)-Y(J))**2+(X(M)-X(J))**2) 
A=DLOG(XLN/XLM) 

.CHECK  IF  DEALING  WITH  ELEMENTS  [J-1, J]  AND  [J,J+11 
IF(M.EQ.JMl.OR.N.EQ.JPl)  GO  TO  98 


: DIAGONAL  TERM 


C DEALING  WITH  ELEMENT  [M,N]  AND  NODAL  POINT  J  :  SUMMATION  TERM 

C DETERMINE  ANGLE  GEOMETRY 

ZMX=(X(M)-X(J) ) 

ZMY=(Y(M)-Y(J)  ) 

ZNX=(X(N)-X(J)  ) 

ZNY=(YCN)-Y(J)  ) 

CALL  CAUCH5(ZNX,ZNY,ANGLEN) 

CALL  CAUCH5(ZMX,ZMY,ANGLEM) 

B=ANGLEN-ANGLEM 

C IF  ENDPOINTS  M  AND  N  ARE  DIRECT  NEIGHBORS  OF  "J"  THEN 

c!!!..THE  INTERIOR  ANGLE  IS  COMPUTED  BY  CANGLE 

IF(M.EQ.JMl.OR.N.EQ.JPl)  GO  TO  98 

C 

C    ..ACCOUNT  FOR  PRINCIPAL  VALUE  OF  THE  LOGARITHM  .  THE  PRINCIPAL 

C BRANCH  FOR  THE  REIMANN  SURFACE  OF  THE  LOGARITHM  RESTRAINS 
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c 

c 
c 


98 


99 


C 
C. 

c 


c 

c 

c*** 

c 

c 

c 

c 

c 

c*** 

c 


c 
c 
c 


10 


12 


THETA  SUCH  THAT  -PI<THETA<=PI  TO  YEILD  A  SINGLE  VALUED 
FUNCTION  FOR  ln(z)  ;  z  HOT  0. 

IF(B.LE.-PI)  B=B+TWOPI 

IF(B.GT.PI)   B=B-TWOPI 

GO  TO  9  9 

CONTINUE 

B=ANGLE(J) 

RETURN 

CONTINUE 

.COMPUTE  THE  CONSTANTS 

F=(X(N)-X(M))**2+(Y{N)-Y(M))**2 

C=A*(X(N)-X(M) )-B*(Y{M)-V(N) ) 

D  =  B*(X(N)-X(M)  )+A*(Y(M)-Y(N)  ) 

C=C/F 

D=D/F 

RETURN 

END 


************************************************************ 

OUTPUT  SUBROUTINE  FOR  THE  CVBEM  ESTIMATE 
OF  UNKNOWN  NODAL  VALUES  PHI  AND  PSI  AT  THE 
BOUNDARY 

************************************************************ 

SUBROUTINE  OUTPUT (IH, IL, ILN , IN, REX, REY, Ql , Q2 ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
PARAMETER (NN=17) 

C0MM0N/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN) ,RIN2(NN), 
$P(NN,NN) ,S(NN) , ANGLE (NN) 
COMMON/OUTOUT/ICHQ, ILOAD 
COMMON  PI,TWOPI 
DIMENSION  REX(NN),REY(NN) 

THIS  SUBROUTINE  OUTPUTS  RESULTS 

WRITE(6,10) 
WRITE(9,10) 

F0RMAT(////,6X, 'CAUCHY 
IF(ICHQ.EQ.l)  THEN 
WRITE(*,*)  '  Q1=',Q1 
WRITEt*,*)  '  Q2=' ,Q2 
WRITE(9,*)  '  Q1=',Q1 
WRITEO,*)  '  Q2=',Q2 
END  IF 
WRITE(6,12) 
WRITE(9,12) 

FORMAT ( IX, //,6X, 'NODE' , 
$5X,  'NUMBER' ,5X,  'VARIABLE' ,4X,  'FUNCTION' ,/ ) 
DO  50  1=1, IN 
IF(I .EQ.IM+1)   WRITEt*, 
IF(I -EQ.IL+l)   WRITEt*; 
IFtI .EQ.ILN+1)  WRITEt*,*) 
IF(I. EQ.IM+1)   WRITEt9,*) 
IF(I. EQ.IL+l)   WRITEt9,*) 


PROGRAM  RESULTS  FOR  NODAL  VALUES',///) 


3X, 'STATE' ,6X, 'STREAM' ,/, 


*) 
*) 
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IF(I  .EQ.ILN  +  l)  WRITEO,*) 

WRITE(*, 55) I, REX (I ) ,REY(I ) 

WRITE (9, 55) I, REX (I ) , REY ( I ) 
55    F0RMAT(3X,I5,5X,2(D12.4,1X) ) 
50    CONTINUE 

RETURN 

END 
C 

Q*  ************  *****************************************************  * 

C  THIS  SUBROUTINE  COMPUTES  THE  VALUES  OF  THE  STREAM  FUNCTION 

C  STATE  VARIABLE  AT  THE  NODES  OF  THE  PROBLEM  GEOMTERiT.  THIS 

C  IS  ACCOMPLISHED  BY  USING  THE  GIVEN  NODAL  VALUES  AND  THE 

C  CVBEM  ESTIMATED  NODAL  VALUES  (FOR  THE  UNKNOWN  VALUES)  AND 

C  THE  CVBEM  APPROXIMATION  TO  CAUCHY ' S  INTEGRAL,  HERE  EQN .  4-22 

C 

C  IN  ADDITION  AN  ERROR  ESTIMATE  IS  PERFORMED  COMPARING  THE 

C  NODAL  VALUES  ,  KNOWN  AND  COMPUTED  ,  TO  THE  RESULTS  OBTAINED 

C  BY  THE  CVBEM  APPROXIMATION  OF  CAUCHY ' S  INTEGRAL.  THE 

C  DISCREPENCY  BETWEEN  THE  TWO  IS  THE  ERROR  e(Z)  AT  EACH  NODE 

Q*  ****************************************************************** 

SUBROUTINE  HOMI (REX, REY, IM, IL, ILN, IN, Ql , Q2 ) 

IMPLICIT  DOUBLE  PRECI SIGN ( A-H, O-Z ) 

PARAMETER(NN=17) 

COMMON/BLK/X(NN),Y(NN),KTYPE(NN),RIN1(NN),RIN2(NN), 
$P(NN,NN) ,S(NN),ANGLE(NN) 

COMMON  PI,TWOPI 

DIMENSION  H1X(NN),H1Y(NN),REX(NN),REY(NN) 
C 

C      MAIN  LOOP 
C 

DO  20  J=1,IN  ,    ■ 

HlX(J)=O.D+0     " 
20    HlY(J)=O.D+0 

WRITEO, 22) 

WRITE(6,22) 
22    FORMAT (//,10X, 'CVBEM  APPROXIMATION  OF  NODAL  VALUES',/ 
$,10X, 'NODEIt      STATE       STREAM',/) 

DO  1000  J=1,IN 
C 

C COMPUTE  BOUNDARY  CONTRIBUTIONS 

C 

DO  500  K=1,IN 
C SKIP.  AT  THE  END  OF  THIS  LOOP, COMPUTE  AND  ADD  PRINCIPLE  VALUE 

KK=K+1 

IF(K.EQ.IM)  KK=1 

IF(K.EQ.IL)  KK=ILN+1 

IF(K.EQ.ILN)KK=IL+1 

IF(K.EQ.IN)  KK=IM+1 

IF(K.EQ. J.OR.KK.EQ.J)  GO  TO  500 

CALL  CAUCH1(IM,IL,ILN,IN,J,K,KK,A,B,C,D) 

C1=REX(KK)*(X(J)-X(K) ) -REY ( KK ) * ( Y ( J ) -Y ( K )  ) 
$-REX(K)*(X(J)-X(KK) )+REY(K)*(Y(J)-Y(KK) ) 

C2=REX(KK)*(Y(J)-Y(K) ) +REY ( KK ) * ( X ( J ) -X ( K )  ) 
$-REX(K)*(Y(J)-Y(KK) ) -REY ( K ) * ( X ( J ) -X ( KK ) ) 

H1X(J)=H1X'(J)+C1*C-C2*D 

H1Y(J)=H1Y( J)+C1*D+C2*C 
500   CONTINUE 
C 

C CALCULATE  PRINCIPLE  VALUE  CONTRIBUTION 

C 
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JM1=J-1 
JPl=Jtl 
JP1=J+1 
JM1=J-1 

IF(J.EQ.l)      JM1=IM 
IF(J.EQ.IM)     JP1=1 
IF(J.EQ.IM+1)   JM1=IN 
IF(J.EQ.IL)     JP1=ILN+1 
IF{J.EQ.IL+1)   JM1=ILN 
IF(J.EQ.ILN)    JP1=IL+1 
IF( J.EQ.ILN+1)  JM1=IL 
IF(J.EQ.IN)     JP1=IM+1 

XLN=DSQRT( ( Y ( JPl ) -Y ( J ) ) **2+ ( X ( JPl ) -X ( J ) ) **2 ) 
XLM=DSQRT( ( Y ( JMl ) -Y ( J ) ) **2+ ( X ( JMl ) -X ( J ) ) **2 ) 
AJ=DLOG(XLN/XLM) 
BJ=TWOPI-ANGLE(J) 

H1X(J)=H1X(J)+REX(J)*AJ-REY(J)*BJ 
H1Y(J)=H1Y(J)+REX(J)*BJ+REY(J)*AJ 
C 

C      DIVIDE  BY  2*PI*i 
C 

TEMP=H1X(J) 
TWOPI=2.DfO*PI 
H1X(J)=H1Y(J)/TW0PI 
H1Y(J)=-TEMP/TW0PI 
c 

C COMPUTE  CONTRIBUTIONS  DUES  TO  SOURCE 

C 

IF(Q.EQ.O.D+0)  GO  TO  425 
XO=XCJ) 
YO=Y(J) 
C 

C... COMPUTE  Ql  CONTRIBUTION 
C 

CALL  CAUCHS(J,1,IM,IM+1,IN,Q1,STPHI,STPSI,X0,Y0) 
H1X(J)=H1X(J)+STPHI 
H1Y(J)=H1Y(J)+STPSI 
C 

C... COMPUTE  Q2  CONTRIBUTION 
C 

CALL  CAUCHS(J,IL+1,ILN,IL,ILN+1,Q2,STPHI,STPSI,X0,Y0) 
H1X(J)=H1X(J)-STPHI 
H1Y(J)=H1Y(J)-STPSI 
C 
425     IF(I .EQ.IM+1)  WRITE(*,*) 
IF(I  .EQ.  IM  +  1)  WRITEO,*) 
IF(I.EQ.IL+1)  WRITE(*,*) 
IFCI.EQ.IL  +  1)  WRITEO,*) 
IF(I .EQ.ILN+1)  WRITE(*,*) 
IF(  I  .EQ.ILN  +  1)  WRITEO,*) 
WRITE(9,450)  J , HIX ( J ) , HIY ( J ) 
WRITE(6,450)  J , HIX ( J ) , HIY C J ) 
450     F0RMAT(9X,I5,1X,2(D12.5,1X) ) 
1000    CONTINUE 
C 

C CALCULATE  NODAL  POINT  RELATIVE  ERROR 

C 

WRITEO, 550) 
WRITE(6,550) 
550     FORMAT(///,10X, 'NODAL  POINT  RELATIVE  ERROR  VALUES 
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$•  e{Z) •,//,21X, '-•,4X, •-'/,10X, "WHERE  e ( z ) =w( 2 ) -w( z ) ' , / ) 

DO  2000  1=1, IN 

DA=REX(I )-HlX(I ) 

DB=REY(I )-HlY(I ) 

IF(I .EQ.IM+1)  WRITE(*,*) 

IF(I.EQ.IM+1)  WRITEC9,*) 

IF(I .EQ.IL+1)  WRITE(*,*) 

IF(I  .EQ.IL  +  1)  WRITEO,*) 

IF( I .EQ.ILN+1)  WRITE(*,*) 

IF(I.EQ.ILN  +  1)  WRITEO,*) 

WRITE (6, 4 55)  I , DA, DB, HIX C I ) -X ( I ) , HIY ( I ) -Y ( I  ) 
2000  WRITEO, 455)  I ,  DA,  DB,  HIX  (  I  ) -X  ( I  )  ,  HIY  (  I  ) -Y  {  I  ) 
455     F0RMAT(9X,I5,1X,4(D12.5,1X) ) 

RETURN 

END 
C 
C*************************** ************** ************************ 

C        SUBROUTINE  CAUCHS  COMPUTES  THE  SOURCE  TERM  CONTRIBUTIONS 
C****** *********************************  ************************** 

c 

SUBROUTINE  CAUCHS (K, I 1 , IM, IMPl, IN, Q, STPHI , STPSI , XO, YO ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PARAMETER (NN=17) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN ) , RIN2 ( NN ) , 
$P(NN,NN) ,S(NN) , ANGLE (NN) 

COMMON  PI,TWOPI 
C 

C        INITIALIZE  CONSTANTS 
C 

A=O.D+0 

B=O.D+0 

C=O.D+0 

D=0.D+0 

Cl=O.D+0 

Dl=0.D+0 

C2=0.D+0 

D2=0.D+0 

C4=0.D+0 

D4=0.D+0 

C5=0.D+0 

D5=O.D+0 
C 

C        IF  K=0   THEN  POINT  (XO,YO)  IS  AN  INTERIOR  POINT 
C        IF  KOO  THEN  POINT  CXO,YO)  IS  A  BOUNDARY  POINT 
C 

C CHECK  IF  POINT  IS  AN  INTERIOR  POINT 

C 

IF  (K.EQ.O)  GO  TO  1000 
C 

C CHECK  IF  K  IS  A  BOUNDARY  BRANCH  NODE  :  K  =  l  OR  MNOD  +  1 

C 

IF(K.EQ.Il.OR.K.EQ.IMPl)  GO  TO  100 
C 

C K  IS  AN  ORDINARY  BOUNDARY  NODE 

C 

XO=X(K) 

YO=Y(K) 

C IF  K  =  HNOD  LOOSE  THE  FIRST  TERM 

C 

IF(K.EQ.IM)  GO  TO  200 
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ISFLAG=1 
N  =  I1 

M=  T  M 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C1  =  C 

D1  =  D 
C 

C IF  K  =  NNOD  LOOSE  LAST  TERM 

C 

IF(K.EQ.IN)  GO  TO  300 
200     ISFLAG=1 

N=IMP1 

M  =  IN 

CALL  CAUCHQ{M,N,A,B,C,D,ISFLAG,XO,yO) 

C2=C 

D2  =  D 
C  *      * 

C COMPUTE  A  AND  B 

C 
300     ISFLAG=0 

N=IMP1 

M=I1 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

AS=A 
BS  =  B 

ST0X1=C1*(X0-X(IM))-D1*(Y0-Y(IM) ) 
STOX2=C2*(XO-X(IN) ) -D2* ( YO-Y ( IN) ) 
ST0Y1=C1*(Y0-Y(IM) )+Dl*(XO-X(IM) ) 
STOY2=C2*CYO-Y(IN) ) +D2* ( XO-X (IN ) ) 
STPHI= ( ST0X1-ST0X2+AS ) *Q/TWOPI 
STPSI= ( ST0Y1-ST0Y2+BS ) *Q/TWOPI 
RETURN 
100     IF(K.EQ.IMPl)  GO  TO  150 

C 

C NODE  K  IS  A  BRANCH  NODE  K  =  l 

C  *       * 

C  -      COMPUTE  A   AND  B 

c  ■  "■ 

ISFLAG=0 

N=IMP1 

M=IM 

X0=X(I1) 

Y0=Y(I1) 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

AS  =  A 
BS  =  B 

C COMPUTE  SECOND  TERM 

ISFLAG=1 

N=IMP1 

M=IN 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

C4=C 

D4  =  D 

STOX2=C4*(XO-X(IN) ) -D4* ( YO-Y ( IN ) ) 

STOY2  =  C4"*{  YO-y(IN)  ) +D4  *  (  XO-X  (  IN  )  ) 

STPHI=(AS-ST0X2)*Q/TW0PI 

STPSI=(BS-ST0Y2)*Q/TW0PI 

RETURN 
C 
C BOUNDARY  NODE  IS  BRANCH  NODE  K=MN0D+1 
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X0=X(IMP1) 

Y0=Y(IMP1) 

COMPUTE  FIRST  TERM 

ISFLAG=1 

N=I1 

M  =  IM 

CALL 

C5=C 

D5  =  D 


CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 


COMPUTE  A   AND  B 

ISFLAG=0 

N  =  IN 

M=I1 

CALL  CAUCHQ(M,N,A,B,C,D,ISFLAG,XO,YO) 

AS  =  A 

BS  =  B 

ST0X1=C5*(X0-X(IM) )-D5*(Y0-Y(IM) ) 

ST0Y1=C5*(Y0-YCIM) ) +D5* (XO-X ( IM) ) 

STPHI= ( AS+STOXl ) *Q/TWOPI 

STPSI=(BS+ST0Y1)*Q/TW0PI 

RETURN 


.NODE  IS  AN  INTERIOR  NODE 
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CONTINUE 
.COMPUTE  FIRST  TERM 
ISFLAG=1 
N=I1 
M=IM 

CALL  CAUCHQ (M,N,A,B,C,D,I SFLAG , XO , YO ) 
C1=C 
D1  =  D 


.COMPUTE  LAST  TERM 


N=IMP1 

M=IN 

CALL  CAUCHQ (M,N,A,B,C,D,I SFLAG , XO , YO ) 

C2=C 

D2=D 

*       * 

.COMPUTE  A   AND  B 


ISFLAG=0 

N=IMP1 

M=I1 

CALL  CAUCHQ ( M,N, A, B,C,D, I SFLAG, XO,YO) 

AS  =  A 

BS  =  B 


.COMPUTE    SOURCE    TERM    CONTRIBUTIONS    TO    AN    INTERIOR    POINT 


ST0X1=C1*(X0-X(IM) )-Dl*(YO-Y(IM) ) 
ST0X2=C2*(X0-X(IN) ) -D2* C YO-Y ( IN ) ) 
ST0Yl=Cl*(Y0-y(IM) )+Dl*(X0-X(IM)) 

ST0y2=C2*{ YO-Y(IN) ) +02  * ( XO-X (IN ) ) 
STPHI=(ST0X1-ST0X2+AS)*Q/TW0PI 
STPSI= ( ST0Y1-ST0Y2+BS ) *Q/TWOPI 
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RETURN 

END 
C 
C*«*«*********** *********  ********************************************** 

C  THIS  SUBROUTINE  OUTPUTS  THE  BOUNDARY  ELEMENT  GEOMETRIC  VALUES 

C  FOR  THE  SOURCE  TERM  CONTRIBUTIONS 

C  IT  FIRST  COMPUTES  THE  DISTANCES  d(N,J)  AND  d(M,J)  @THE  POINTJ 

C  WHERE,  M=N  +  1.  THEN  IT  COMPUTES  THE  ANGLE  THETA ( j +1 , j -1  )  AND 

C  THE  CONSTANTS  A,B,C,D  DEFINED  IN  THE  EQN .  ON  PAGE  188. 

C  [note:  the  eqn.  on  that  page  is  NOT  in  the  final  form  used  in 

C  this  program,  e.g  in  program  CAUH2 ] 

C**************************** *******************************  *********** 

C 

SUBROUTINE    CAUCHQ ( M, N, A, B, C, D, ISFLAG, XO, YO ) 

IMPLICIT    DOUBLE    PRECISION     (A-H,0-Z) 

PARAMETER (NN=1 7) 

COMMON/BLK/X ( NN ) , Y ( NN ) , KTYPE ( NN ) , RINl ( NN ) , RIN2 ( NN ) , 
$P(NN,NN) ,S{NN) , ANGLE  CNN) 

COMMON  PI,TWOPI 
C 

C COMPUTE  THE  VECTOR  LENGTHS  d(N,J)  AND  d(M,J) 

C 

XLN=DSQRT( ( Y (N ) -YO ) **2+ ( X ( N ) -XO ) **2 ) 

XLM=DSQRT( ( Y ( M ) -YO ) **2+ ( X ( M ) -XO ) **2 ) 

A=DLOG(XLN/XLM) 
C 
C DETERMINE  ANGLE  GEOMETRY 

ZMX=(XCM)-XO) 

ZMY=(Y(M)-YO) 

ZNX=(X(N)-XO) 

ZNY=(YCN)-YO) 

CALL  CAUCH5(ZNX,ZNY,ANGLEN) 

CALL  CAUCH5(ZMX,ZMY,ANGLEM) 

B=ANGLEN-ANGLEM 
C 

C ACCOUNT  FOR  PRINCIPAL  VALUE  OF  THE  LOGARITHM  .  THE  BRANCH  CUT 

C  ■      TAKEN  SUCH  THAT  -PI<THETA<=PI 

IF(B.LE.-PI)  B=B+TWGPI 

IF(B.GT.PI)   B=B-TWOPI 

IF(ISFLAG.EQ.O)  RETURN 
C 

C COMPUTE  THE  CONSTANTS 

C 

F=(X(N)-X{M))**2+(Y(N)-Y(M))**2 

C=A*(X(N)-X(M) )-B»(Y(M)-Y(N) ) 

D=B*(X(N)-X(M) )+A*(Y(M)-Y(N) ) 

C=C/F 

D=D/F 

RETURN 

END 
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